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Zusammenfassung 

Durch den Rückstoß der im Zusammenhang mit der Schweifbild ung entweichenden Materie haben Ko- 
meten einen Eigenantrieb. Über den Verlauf dieser nichtgravitativen Kräfte gibt es bisher nur Annahmen und 
Modellrechnungen. Die gegenwärtige Erscheinung des Hallcyschcn Kometen bietet erstmals die Möglichkeit, 
aus der beobachteten Bewegung den Verlauf der Kräfte direkt zu berechnen. 

Im ersten Kapitel wird der historische und physikalische Hintergrund der nichtgravitativen Kräfte und 
der gegenwärtige Stand ihrer Erforschung beschrieben. Das zweite Kapitel befaßt sich mit den Grundlagen 
der Berechnung der nichtgravitativen Kräfte aus der beobachteten Bewegung der Kometen. Im dritten 
Kapitel folgen Betrachtungen über den Einfluß der nichtgravitativen Kräfte auf die Beobachtungen und über 
die zweckmäßigste Verwendung derselben für die Berechnungen. Im vierten Kapitel schließlich wird auf die 
Erforschung und Ergebnisse über die nichtgravitativen Kräfte des Hallcyschcn Kometen eingegangen. 



1. Einleitung 



Die Versuche, das Wesen der Bewegung der Himmelskörper zu klären, sowie ihre Vorausberechnung zu 
bewerkstelligen, dürften zu den ältesten Aufgaben der Wissenschaften gehören. Dies galt insbesondere für 
die Kometen, von denen die meisten regellos erscheinen. Während sich Theorien der Bewegung der Planeten 
zu den meisten Zeiten den Beobachtungen im Rahmen ihrer Genauigkeit anpassen ließen, war dies bei den 
Kometen aus Gründen prinzipieller Unkenntnis nicht möglich. 

Bis zur Zeit der Renaissance bestand in Europa, entsprechend den Lehren des Aristoteles 1 die Auffas- 
sung, daß es sich bei den Kometen um subtile Gebilde handelt, die durch die Einwirkung der Strahlung der 
Sonne oder der Planeten bei Konjunktionen aus der Feuchtigkeit des Bodens entstehen, durch die Regionen 
der Luft und des Wassers hinauf zur Sphäre des Feuers stiegen, sich dort entzündeten und anschließend bren- 
nend wieder herabstürzen und dabei unter anderem krankheitserregende Dünste und anderes Unheil über 
die Bewohner verbreiten. Dies war die älteste Theorie über die nicht gravitative Bewegung der Kometen, die 
heute allerdings kaum noch Anhänger findet. 

Die auf die Entwicklung der Buchdruckerkunst um 1440 einsetzende wissenschaftliche Diskussion erfaßte 
auch die Kometen. Bei Beobachtungen eines 1531 erschienenen Kometen, der sich später als der Hallcyschc 
Komet erwies, stellte P. Apianus 2 in Ingolstadt fest, daß der Schweif des Kometen von der Sonne wegwics, 
und bestätigte dies anhand der Kometen von 1532,1533,1538 und 1539. Dies widersprach zwar noch nicht 
der bisherigen Lehre, regte aber Überlegungen über eine möglicherweise astronomische Natur der Kometen 
an. Ein Versuch durch J. Vogelin 3 in Wien, die Parallaxe des Kometen von 1532 zu messen, verlief erfolglos, 
ebenso entsprechende Beobachtungen des Kometen 1577b von T. Brake 4 " in Hvar. Daraus schloß man. daß die 
Kometen erheblich weiter als der Mond von der Erde entfernt sind. Inzwischen hatte bereits N.Kopernikus 5 
die Bewegung der Planeten durch sein i.W. bis heute fortbestehendes Modell erklärt. J.Kepler (> versuchte, 
neben der Entdeckung seiner Gesetze zur Planctcnbcwcgung. die Bewegung der Kometen durch Geraden 
darzustellen, allerdings ohne gutem Erfolg. Ein wesentlicher Fortschritt ergab sich erst durch die Idee von 
J.Hevelius 7 in Danzig, eine zur Sonne hin gekrümmte Bewegung anzunehmen, was er aus Beobachtungen 
des Kometen von 1664/5 folgerte. Kurz darauf gelang es seinem ehemaligen Schüler G.S.Dörfel 8 in Plauen, 
die Beobachtungen des Kometen von 1680 sehr genau durch eine Parabel darzustellen. Dies war die erste 
wesentlich richtige Darstellung der Bahn eines Kometen. 

Um 1700 bewies I.Newton 9 als eine der ersten Anwendungen der gerade erfundenen Infinitesimalrech- 
nung, daß sich die Himmelskörper entsprechend den Kcplcrschcn Gesetzen auf Kegelschnittbahncn bewegen, 
falls die Sonne auf sie eine anziehende Kraft oc r~ 2 zur Entfernung r bewirkt. Neben Newton berechnete 
E.Halley die Lage und Per ihcldis tanz von 24 früher beobachteten Kometen. Dabei fiel ihm die Ähnlichkeit 
der Bahnen der Kometen von 1682, 1607 und 1531 auf, sowie daß auch für 1456 von einem Kometen be- 
richtet wurde, und er postulierte zutreffend, daß es sich um cinunddcnsclbcn Kometen handelt, der 1758 
zurückkehren sollte, und seither nach ihm benannt wurde. 

In der nachfolgenden Zeit etablierte sich die neue Vorstellung über die Bewegung der Kometen durch 
ihre Anwendung auf alle neu erscheinenden Kometen. 1758 erschien erwartungsgemäß der Hallcyschc Komet. 
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In den Jahren 1766 11 und 1770 12 wurden erstmals Kometen entdeckt, bei denen die Beobachtungen unmit- 
telbar auf eine Ellipscnbahn hindeuteten. Ziemliche Verwirrung stiftete zunächst auch ein kleiner grüner 
'Komet', der 1781 entdeckt wurde und für den man eine fast kreisförmige Bahn hinter der des Saturn erhielt. 
Im Übrigen beschäftigte man sich damit, die Methoden der Bahnbestimmung 1 ' 5 zu verbessern, die noch weit- 
gehend ziellos, zeichnerisch, und unter Angcwicscnhcit auf unnötig vielen Beobachtungen erfolgte, und um 
1797 mit dem Durchbruch endete, nach H. W.M. Olbers li neben den geometrischen auch die dynamischen 
Beziehungen zwischen den Orten des Kometen zu verschiedenen Zeiten zu verwenden, wie sie sich aus der 
Gravitationstheoric ergeben. Zumindest prinzipiell erschien aber die Bewegung der Kometen geklärt. 

Etwas neues bahnte sich dann gegen 1820 an. Inzwischen hatte man mehrere Erscheinungen eines 
Kometen mit nur 3,3 Jahren Umlaufzcit beobachtet. Die Positionsbeobachtungen haben inzwischen die 
auch heutzutage nicht wesentlich bessere Genauigkeit von 1" erreicht. Die Massen der Planeten waren genau 
genug bekannt, um ihre Störungen auf die Bewegung des Kometen zu berücksichtigen. Gleichwohl ließen sich 
die Beobachtungen durch die Gravitationstheorie nur wesentlich schlechter als im Rahmen ihrer Genauigkeit 
darstellen. Gegenüber der Rechnung nahm die Umlaufzcit des Kometen je Umlauf signifikant um etwa zwei 
Stunden ab, wie die sehr sorgfältigen Untersuchungen von J. Encke 15 ergaben, nach dem der Komet benannt 
wurde. Encke deutete diesen Effekt als den Encrgicvcrlust infolge der Abbrcmsung des Kometen durch 
ein widerstehendes Medium, und nahm eine rücktrcibcndc Kraft proportional v 2 jr 2 an (v Geschwindigkeit, 
r heliozentrische Distanz des Kometen). Bei späteren Untersuchungen 16 fand Encke allerdings auch eine 
Veränderung der Orientierung der Bahnebene, die sich durch eine rücktrcibcndc Kraft nicht erklären läßt. 

1835 erschien abermals der Hallcyschc Komet. Gegenüber den Vorausbcrcchnungcn aus Beobachtungen 
von 1607,1682 und 1758 nach O.A.Rosenberger 11 und P.G.de Pontecoulant 1 ^ wies er eine Verspätung von 
4,4 Tagen bzw. 3,3 Tagen auf. Sie konnte nicht durch andere Unsicherheiten erklärt werden und stand 
im Gegensatz zu der Verkürzung der Umlaufszcit beim Enckcschcn Kometen. Darüber hinaus wies der 
Komet rege Ausströmungscrschcinungcn auf. F. W. Bessel 19 , der den Kometen in Königsberg beobachtete 
und diese Erscheinungen beschrieb, war der Meinung, daß das ausströmende Material durch seinen Rückstoß 
die Bewegung des Kometen grundsätzlich bccinfiußcn müsse. Eine Veränderung der Umlaufszcit ist sowohl 
durch die tangentiale Komponente der Rückstoßkraft an sich, als auch durch ihre Asymmetrie auf dem 
auf- und absteigenden Teil der Bahn zu erwarten. Für die Veränderung der Umlaufszcit r infolge einer 
Ausströmung des ^i-ten Teiles der Gesamtmasse des Kometen je Zeiteinheit zu 1/k (m 58) Tagen mit der 
Geschwindigkeit g unter einem Winkel a zum Radiusvektor bei der heliozentrischen Distanz r und der 
exzentrischen Anomalie e leitet Bessel die Formel dr — — 3g ßaT(y/äp sin a de — cosa dr) ab. Die Ansichten 
von Bessel und seine Begründungen sind korrekt; auch ist bis heute qualitativ nur wenig mehr über diese 
nichtgravitativen Kräfte bekannt. Bessel vertrat diese Auffassung klar und eindeutig. Zu den Gründen, 
die gegen ein rücktreibendes Medium sprechen, führte er auch die Verspätung des Hallcyschcn Kometen 
auf. Es ergab sich eine Kontroverse mit Encke 20 , der seine Athcrthcorie, allerdings nicht ganz schlüssig, 
verteidigte. Eine Untersuchung eines Schülers von Bessel, H.Westphalen 21 , die klären sollte, ob sich aus 
den Beobachtungen der Erscheinung 1835-6 des Hallcyschcn Kometen signifikante repulsive Kräfte ergeben, 
verlief bedauerlicherweise erfolglos; wie man heute sagen muß, bedingt durch die Kleinheit der Kräfte und die 
schlechte Qualität der damaligen Beobachtungen der zweiten Hälfte der Erscheinung von der Südhalbkugel. 

Eine Abnahme der Umlaufszcit ergaben die Berechnungen von A.Möller 22 auch für den 1843, 1851 und 



11 Komet Helfenzrider, Periodizität festg. von J.C.Burckhardt, Conn. des Temps 1821(1819), 293 

12 Komet Lexell, Periodizität festg. von A.G.Pingre, Mem.Acad. Paris 1770(1770),225 

1 ''' detailliert zusammengestellt bei A.G.Pingre, Cometographie. Paris 1784, Tome 2,218-466. 

Abhandlung über die leichteste und bequemste Methode, die Bahn eines Kometen aus einigen Beobachtungen 
zu berechnen. Weimar 1797. 47. 

15 Berliner Astron. Jahr buch 1822(1819), 183, 200, 1823(1820), 215, 1826(1823), 135, 1861(1858) Anhang 

16 Math.Abh.d.Kgl.Akad.d.Wiss.Berlin 1842(1844), 1,1851(1852),25 

17 Astron. Nachr. 8(1831), 221, 9(1831), 53, 11(1834), 156, 177, 12(1835), 187,391 
Kotice sur la comete de Halley et son retour en 1835. Paris 1835; 
Connaissance des Temps par l'an 1833(1831), 112, 1837(1835), 104, 1838(1836), 115 

19 Astron. Nachr. 13(1836), 6, 345,349; siehe auch ibid. 24(1847), 335 

20 ibid., 265 

21 Astron. Nachr. 24(1847), 333,365, 25(1848), 165, 181 

22 Astron. Nachr. 53(1860), 161, 54(1861), 353, 57(1862), 215. 
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1858 beobachteten Kometen Fayc, wobei die rücktreibende Kraft eine Größenordnung höher als bei Komet 
Enckc läge. Später 2,5 revidierte der Autor jedoch diese Ergebnisse dahingehend, daß bei dem Kometen keine 
meßbare Änderung der Umlaufszeit vorhanden ist. Ein ähnlicher Fall war Komet Pons-Winncckc, bei dem 
zunächst T.Oppolzer 24 aus Beobachtungen 1858,1869 und 1875 eine Kraft von derselben Größe wie bei Komet 
Enckc erhielt, während spätere Berechnungen von E.Haerdtl 2 '' keine merkliche Veränderung der Umlaufszcit 
ergaben. Eine Neubearbeitung durch A.D.Dubiago 2(> ergab sogar eine geringe Zunahme der Umlaufszeit im 
Zeitraum 1858 bis 1886. Der Grund lag in diesem Fall in der Unsicherheit der früher bekannten Werte der 
Jupitermasse. 

Bei einer umfangreichen Untersuchung der Bahnbewegung des Kometen Enckc stellte E. Asten fest, 
daß sich die Erscheinungen ab 1868 nicht mit den früheren Erscheinungen in Übereinstimmung bringen 
lassen. Er erklärte sich dies mit den Störungen durch den kleinen Planeten (78) Diana. Eine weiterführende 
Untersuchung durch O.Backlund 28 ergab, daß seit 1868 gegenüber früher die Verkürzung der Umlaufszcit 
deutlich abgenommen hatte. Im Falle einer rücktrcibcndcn Kraft oc v m r~ n erfordert dieser Sachverhalt für 
die Exponenten die Bedingung m + n > 2 . Bei der Fortführung der Untersuchungen 29 erhielt derselbe 
Autor, daß die Abnahme der Umlaufszcit seit 1858 bis 1908 auf etwa die Hälfte zurückgegangen ist. Da die 
Störungen mindestens erster Ordnung sind sowie nicht unabhängig von der Geschwindigkeit sein dürften, 
folgt n — 0, d.h. die rücktreibende Kraft wäre unabhängig von der heliozentrischen Entfernung. Außerdem 
folgerte er, daß der die Umlaufzcit verkürzende Einfluß nahe dem Pcrihcl binnen kurzer Zeit erfolgt, und die 
zeitliche Variation der des betreffenden Mediums entspricht. Spätcrc Untersuchungen durch S.G.Makover 
und N.A.Bohan 30 bestätigten diese Ergebnisse und ergaben, daß der Effekt im Zeitraum 1937 bis 1954 
abermals erheblich abgenommen hat. Die Veränderung der Lage der Bahnebene ging von etwa 30" im 
Zeitraum 1898 - 1911 auf 5" für 1937 bis 1954 zurück. 

Für den anschließend zerfallenen Kometen Bicla erhielt J.Hepperger' 1 ' 1 aus den drei Erscheinungen 1806 
bis 1832 eine Abnahme der Umlaufszcit. Für den Kometen Wolf ergaben die umfangreichen und lange 
fortgesetzten Untersuchungen von M.Kamienski 32 für die Erscheinungen 1884 bis 1959 eine geringer werdende 
Zunahme der Umlaufszcit. Nach einer Annäherung an Jupiter 1922 waren die nichtgravitativen Effekte um 
die Hälfte vergrößert. Große systematische Rcstfchlcr von über 1' verblieben in den Beobachtungen von 1925, 
die sich erst später durch anderweitige Bearbeitung 33 als die nichtgravitativen Störungen in den anderen 
Elementen klären ließen. Die Untersuchungen des Kometen d'Arrcst durch A. W.Recht M für den Zeitraum 
1851 bis 1923 ergaben ebenfalls eine abnehmende Zunahme der Umlaufszcit. Für den Kometen Brooks 2 
ergaben die Berechnungen von A.D.Dubiago 35 für den Zeitraum 1889 bis 1953 eine abnehmende Umlaufszcit 
ohne signifikanter Variation, ebenso G.Sitarski m für den Kometen Grigg-Skjcllcrup in der Zeit 1947 - 1961. 

Die gefundenen Vergrößerungen der Umlaufszcit, die nicht durch ein rücktrcibcndcs Medium erklärt 
werden konnten, waren maßgeblich daran beteiligt, daß man nach vorübergehend anderer Auffassung über 
den Kometenkern 37 zu der Überzeugung zurückkehrte, daß es sich um einen festen Körper handeln muß, und 



23 Astron. Nachr. 64(1865), 145; Vierteljahresschrift d. Astron. Ges. 7(1872),85 

24 Astron. Nachr. 97(1880), 149 

2:> Denkschr.d. Wiener Akad.d.Wiss.(Math.-Natw.Classe) 56(1889), 151 

2(i Astron. Zh. 25(1948), No. 6,361. 

27 Mem.Acad.Imp.Sci.St.-Petersbourg, Ser. 7, 26(1878), No. 2 

28 ibid. 32(1884),No.3 

29 ibid. 34(1886), No. 8, Ser. 8, 30(1911), No. 2, Monthly Notices of the Royal Astron. Soc. 70(1910),No.5,429ff. 

30 Trudy Inst. Theor.Astr. Leningrad 4(1955), 133, 6(1956), 67, 8(1960), 135 

31 Sitzungsb.d.Akad.d.Wiss. Wien (Math.-Natw.Classe) 109(1900),No.2,623 

32 Acta Astron. Ser. A, 3 (1933), 1, Bull. Acad. Pol. Ser. A, 8(1948), Acta Astron. 9(1959), 53, 11(1961), 33 mit weiteren 
Quellenangaben 

33 E.I.Kazimirchak-Polonskaya, Proc. IAU-Symp. 45(1972),95 

34 Astron. Journal 48(1939), 65 

35 Trudy Ast r. Obs. Engelhard 31(1950), Bull. Astr. Obs. Engelhard 32(1956) 

36 Acta Astron. 14(1964), 323, 16(1966), 209 

37 R.A.Lyttleton, Comets and Their Qrigin. Cambridge 1953 
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Abb. 1.1 



Nichtgravitative Kraft durch Sublimation 



Durch die Sonnenbestrahlung sublimicrt Material des Kometen, woraus Kopf und Schweif entstehen. 
Der Rückstoß f stellt die nichtgravitative Kraft dar. Infolge der Rotation des Kometen ist der Sublimation- 
sschwerpunkt F gegenüber dem subsolarcn Punkt S um den lag angle A verschoben, weil auch in tieferen 
Schichten Material sublimicrt, wohin die Wärme erst geleitet werden und von wo aus das sublimierte Gas 
an die Oberfläche diffundieren muß. r Radiusvektor, Ai,A2,A$ Richtung der nicht gravi tativen Parameter. 



F.L.Whipple 38 sein 'Schnccballmodcir entwickelte. Durch die Erwärmung des Kometenkernes sublimicrt in- 
folge des geringen atmosphärischen Druckes die Materie zu Gas und strömt nach außen ab. Der Schwerpunkt 
der Sublimation ist dabei nicht genau der subsolarc Punkt, sondern etwas in Rotationsrichtung versetzt. Je- 
nachdem ob die Rotation im gleichen oder entgegengesetzten Sinn wie die Bahnbewegung erfolgt, entsteht 
daher heliozentrisch gesehen eine tangentiale Komponente der Repulsivkraft, die der Bahnbewegung glcich- 
oder gcgcngcrichtct ist und die Umlaufperiodc vergrößert bzw. verringert. Falls die Rotationsachse gegen 
die Bahnnormale geneigt ist. ergibt sich auch eine Komponente senkrecht zur Bahnebene (siehe Abbildung 
1.1). Aus dein Wärmehaushalt und der anzunehmenden Größe des Komctcnkcrncs sowie der chemischen 
Zusammensetzung und Sublimationsratc und -geschwindigkeit des Eises infolge der Erwärmung, wie sie aus 
dein Labor bekannt ist. ließ sich die Größe der Rcpulsivbcschleunigung abschätzen und erhielt Whipple 39 
die beobachtete Größenordnung. Des Weiteren untersuchten Whipple und S.E.Hamid 40 64 langperiodische 
Kometen auf eine unterschiedliche Bewcgungungsgcschwindigkcit und eine radiale repulsive Kraft im ab- und 
aufsteigenden Teil der Bahn im Sinne von Bessel. Im statistischen Mittel ergab sich eine der Sonnenanzie- 
hung entgegenwirkende Kraft von relativ (—0, 53±0, 10) • 10 -5 , in Übereinstimmung mit der bei Sublimation 
von Wasscrcis zu erwartenden Größenordnung. Die Einzclcrgcbnissc korrelierten mit der Pcrihcldistanz, 
jedoch nicht mit der Helligkeit des Kometen. Diffuse Kometen und solche mit schnellem Helligkeit sab fall in 
zunehmender Distanz besaßen größere (positive und negative) Werte. 

Der Vollständigkeit halber sei angemerkt, daß mitunter auch Bcobaehtungscffcktc für die Diskrepanzen 
zur gravitativen Bewegung angenommen wurden 41 . Bei einigen Kometen sind die Restfehlcr bei rein gra- 
vitativer Rechnung nur klein, nach Marsden 42 etwa bei Komet Encke (Bahn durch die Erscheinungen 1950 
bis 1964) 15", bei Komet Whipple (1933-1964) 10", bei Komet Pons-Winncckc (1939-1964) unter 5". Bei 
manchen Kometen erreichen die Diskrepanzen jedoch Größenordnungen, die weit über der Ausdehnung des 
Kometen liegen, so etwa bei Komet d'Arrest (Beobachtungen 1943-1964) 800", Komet Forbes (1929-1961) 
2900". Komet Honda-Mrkos-Pajdusakova 1700", bei dem Hallcyschcn Kometen sogar mehrere Grad. Auch 
die nicht bcrücksichtigbarcn Störungen durch die Planetoiden erwiesen sich als wesentlich zu gering 4,5 . 

Bis in diese Zeit war die Bearbeitung der Balmbcrcchnung eines periodischen Kometen und Fortführung 
über mehrere Erscheinungen eine mühevolle Arbeit, die oft die gesamte Arbeitszeit eines Einzelnen über 
Jahrzehnte in Anspruch nahm. Die nicht gravitativen Kräfte wurden meist durch die zeitliche Veränderung 
der Elemente erfaßt, die man aus Gruppen zu zwei oder mehreren Erscheinungen des Kometen zu unter- 
schiedlichen Zeiten abgeleitet hatte. Einen Überblick über die damalige Berechnung gibt A.D.Dubiago 44 , 
über die erhaltenen Resultate Z.Sekanina 45 . Mit dem Aufkommen der elektronischen Rcchcnanlagcn wurden 
wesentlich umfangreichere Rechnungen und die Untersuchung einer größeren Zahl von Kometen in Hinblick 
auf die nichtgravitativen Kräfte möglich. Die Berechnung der Bewegung der Himmelskörper erfolgt nun 
zweckmäßigkcitshalbcr durch numerische Integration der Bcwegungsglcichungcn in rechtwinkligen Koordi- 
naten 46 . Dabei können Annahmen über den Verlauf der nichtgravitativen Beschleunigungen hinzugefügt 
und unter Bestimmung ihrer Vorfaktoren, der nichtgravitativen Parameter, berücksichtigt werden. 

Diese umfangreiche Untersuchung der nichtgravitativen Kräfte vieler Kometen wurde von B.G.Marsden, 
später zusammen mit Z.Sekanina, durchgeführt. Im ersten Teil dieser Arbeit 47 wurden 18 Kometen auf eine 
mögliche Zu- oder Abnahme ihrer Umlaufszcit hin untersucht, und in 15 dieser Fälle festgestellt. Im zweiten 
Teil 48 wurde zunächst ein Standard in Hinblick auf die künftige Berechnung nicht gravitati vor Beschleu- 
nigungen festgelegt. Verwendet werden sollen deren Komponenten /,(?' — 1,2,3) im mit dem Kometen 
mitbewegten Koordinatensystem heliozentrisch radial, etwa in Bewegungsrichtung toroidal, sowie normal 



66 Astroph.Journ. 111(1950),375 

39 ibid. 392 

40 Astron., Journal 58(1953),100 

41 A.Hall, American J.of Sciences and Arts 2(1871),404; E.Roemer, Astron., Journal 66(1961), 368 

42 siehe Z.Sekanina, Bull.of the Astrn.Inst. of CSSR 19(1968), No.2,47f. 

43 K.A.Shtejns, I.E.Zalkalne, ProdAU-Symp. 45(1972), 246; T.A.Morley, ESOC Giotto Study Note 47(1984) 

44 The Determination of Orbits. New York 1961 

45 Bull, of the Astron. Inst.of Czech. 19(1968) : No.2,47. 

4fi siehe dazu W.J.Eckert, Astron. Journ. 44(1935), 177; P.Herget, Astron. Journ. 52(1947), 115 

47 Astron., Journ. 73(1968),367 

48 ibid. 74(1969),720 




Abb. 1.2 Nichtgravitative Parameter 

Die nichtgravitativen Parameter Ai,A 2 ,A 3 sind das Verhältnis der zur Bahnbewegung radialen, transver- 
salen und normalen Komponente der nichtgravitativen Beschleunigung zu einem vorgegebenen Verlauf g(r). 



log r 




Abb. 1.3 Verlauf der nichtgravitativen Kräfte nach Stil 1 und Stil 2 

0: Stil 2, Gl. 1.4 (r - 2,808A.E). 1-4: Stil 1 ; Gl. 1.2 mit C = 2,a = 3 (1) bzw. a = 5 (£) 
:4,a = 3 (5) bzw. a = 5 (^). 



dazu (siehe Abbildung 1.2). Sie werden aufgeteilt in den von der heliozentrischen Distanz beziehungsweise 
von der Zeit abhängigen Anteil gemäß 

fi(r,t) = AMt)9i(r) ■ 1.1 

Die bi(t) und gi(r) sind im Laufe der Zeit zu erforschen und werden für die Bahnbestimmungen zunächst 
einmal vorgegeben. Die A i7 die sogen, nicht gravitativen Parameter, sind für die verschiedenen Kometen bei 
den Bahnrechnungen zu bestimmen. Als Arbeitshypothese wurden ad hoc Abhängigkeiten der Form 

9i (r) = r -^ e ~ r2 / c i 1.2 

und 

bi{t) = e- Bit 1.3 

angenommen (siehe Abbildung 1.3), mit zunächst gleichen Parametern ai,Ci und Bi und einer Zeit t in 
Einheiten zu 10000 Tagen seit der Epoche. Bei r — 1 AE entspricht etwa A\ — 1,7 dem millionsten Teil 
der Sonncnanzichung. Die Annahme für Qi{r) wurde von Whipple vorgeschlagen. Für sechs der im ersten 
Teil betrachteten Kometen wurden die Werte der nichtgravitativen Parameter bestimmt, ebenso für den 
langperiodischen Kometen 1960II Burnham, bei dem zuvor systematische Rcstfchlcr der Größenordnung 10" 
verblieben waren 49 . Bei diesem Kometen ergab sich eine signifikante, der Sonncnanzichung entgegenwir- 
kende Kraft von A\ — 5.9 . Im Falle des Kometen Schwaßmann- Wachmann 2 (Pcrihcldistanz q — 2.16AE, 
e — 0.38) ließen sich durch eine Bahn ohne nichtgravitativen Kräften die sieben vorliegenden Erscheinungen 
1929 bis 1968 nur mit Fehlern bis zu 100" darstellen. Durch die Erscheinungen 1961 und 1968 allcinc ließ 
sich eine Bahn mit einem mittleren Fehler von 1"1 legen, die bei der Rückrechnung bis 1955 jedoch bis zu 
80", bis 1929 bis zu 1020" Differenz zu den Beobachtungen zeigte. Bei Annahme einer toroidalcn nichtgra- 
vitativen Kraft komponente ließen sich die Erscheinungen 1955,1961,1968 auf 1"2 mittlerer Fehler darstellen, 
die Rückrechnung bis 1929 ergab nun Abweichungen bis 22" . Zur ausreichenden Darstellung von mehr als 
drei Erscheinungen mußte als weiterer Parameter die radiale Komponente oder die säkulare Variation hin- 
zugenommen werden. Bei der Variation der Parameter C und a des angenommenen Kraftgesetzes ergaben 
sich für C — oo, also rein potenziellen Kraft verlaufen, deutlich höhere Fehler als bei kleinen Werten für C. 
Für C — 2 und q — 3 ergab sich die beste Darstellung der Beobachtungen. Diese Werte wurden daher 
in der Folgezeit weiter verwendet. Bei den anderen Kometen sind die nichtgravitativen Effekte erheblich 
geringer und wurden nur die Parameter bestimmt. Marsden merkt abschließend an, daß trotz der besseren 
mittleren Darstellung der Bewegung am Rande der Erscheinungen deutliche systematische Rcstfchlcr verblei- 
ben. Bei Komet Schaumassc wurde eine erhebliche Änderung der nichtgravitativen Parameter nach einem 
Vorübergang an Jupiter im Jahre 1937 festgestellt. Der lag angle X ä: A 2 /Ai war klein bei den Kometen 
Schwaßmann- Wachmann 2 und Whipple, die erst kurz zuvor von Jupiter cingefangen wurden und daher 
junge Kometen sind, dagegen groß bei Komet Enckc, einem alten Kometen. 

Bei den kurzperiodischen Kometen tritt im Wesentlichen die Veränderung der Umlaufszeit, bei Annahme 
eines symmetrischen Kräfte verlauf es also die toroidalc Komponente in Erscheinung, bei langperiodischen Ko- 
meten dagegen die ungleichförmige Bewegung im ab- und aufsteigenden Teil der Bahn infolge der radialen 
Kraft. Im dritten Teil seiner Untersuchungen 50 überprüfte Marsden daher Komet 1960II Burnham und 
Komet 1957III Arcnd-Roland auf unterschiedliche Werte für C und a. Hier ergab sich nun die beste Darstel- 
lung durch einen Verlauf ex r~ 2 . Daraus schloß Marsden, daß die Funktion der radialen und der toroidalcn 
Komponente erheblich unterschiedlich ist und daher der lag angle erheblich von der heliozentrischen Distanz 
abhängt. Von weiteren 8 Kometen wurden die Parameter berechnet. Bei den Kometen Pcrrinc-Mrkos und 
Pons-Winncckc wurden Änderungen der Parameter bei Jupit er annäher ungen festgestellt, bei den Kometen 
d'Arrcst und Daniel dagegen nicht. 

Im vierten Teil 51 untersuchten Marsden und Sekanina mehrere Kometen, von denen Beobachtungen 
aus dem letzten Jahrhundert vorliegen, um einen Überblick über die Änderungen der nichtgravitativen 



49 B.G. Marsden, G. van Biesbroeck, Ästron. Journal 68(1963), 566 

50 ibid 75(1970),75 

51 ibid 76(1971), 1135 



Kräfte, etwa infolge Annäherungen an den Jupiter, zu erhalten. Ebenso wurden Kometen untersucht, die 
sich auflösten. Diese wiesen deutlich wechselnde Kräfte während ihren letzten Erscheinungen auf. Zur 
Erklärung der säkularen Änderungen der Beschleunigung oder Abbrcmsung konnten plausible Gründe wie 
die Verkleinerung des Kometenkcrncs oder die Änderung der Rotationsachscnlagc nicht dienen, zumal die 
beobachteten Werte von Bi jedes Vorzeichen haben. In Bezug auf die erratischen Änderungen wurde die 
Häufigkeit von Zusammenstößen mit meteoritischem Material abgeschätzt. Dabei ergab sich, daß diese 
am unteren Rande der für die beobachteten Diskontinuitäten nötigen Größenordnung liegt. Ein Einschlag 
eines Objektes mit 100 t Masse ist etwa alle 20 Umläufe, eines solchen mit 100 000 t alle 2000 Umläufe 
zu erwarten. Aus heutiger Sicht ist dazu noch anzumerken, daß bei Asteroiden aller Größenordnungen, 
auch der kleinsten, keine meßbaren Änderungen der Bahn ersichtlich sind, wie auch diverse Rechnungen 
des Verfassers belegen. Die erratischen Anomalien von größenordnungsmäßig 10% der säkularen Änderung 
sind nach Meinung des Verfassers wohl überwiegend auf Ausströmungserscheinungen, Licht ausbräche und 
ähnliche Ereignisse zurückzuführen. Allerdings ist dies keine Regel. Beispielsweise der Komet 1962VIII 
hatte erhebliche Aktivität, jedoch zeigen die Rcstfchlcr bei den Bahnrechnungen 52 keinerlei systematische 
Diskrepanzen. Ebenso sind bei dem für häufige Aktivitäten bekannten Kometen Schwaßmann- Wachmann 1 
keine nicht gravitativen Kräfte nachweisbar. 

Im fünften Teil der Untersuchungen 53 wurde eine andere Funktion für gi(r) auf die bereits bearbeiteten 
Kometen und einige weitere angewendet. Durch Labormessungen war zwischenzeitlich die Sublimationsrate 
von Wasscrcis in Abhängigkeit von der Bestrahlung ermittelt worden 54 . Sic ähnelte der zuvor verwendeten 
Abhängigkeit mit C — 2 . a — 3 . Die nicht gravi tative Beschleunigung sollte daher für alle drei Komponenten 
proportional der Sublimationsrate zu 

ff(r)=a£)- m [l + £)*]"* 1.4 

mit a = 0.1113, r = 2.808 AE ,m = 2.15,n = 5.093, k = 4.6142 angenommen werden (siehe Abbildung 
1.3). Die Konstanten hängen von der chemischen Zusammensetzung des Kometen ab. insbesondere r ; für 
Kohlcndioxyd etwa ist r D ^ 6 AE. Für die Kometen Brooks 2 und Schwaßmann- Wachmann 2 ergaben 
Werte von r > A.AE eine zu schlechte Darstellung der Beobachtungen, bei Komet Tuttlc r < 1AE oder 
r > 10 AE, bei Komet 196ÜII Burnham r < 1.6AE (wobei hier allerdings hauptsächlich Ai statt A 2 in 
Erscheinung tritt). Zur Unterscheidung bezeichnet man diese Form der nicht gravitativen Kräfte als Stil 2, 
die frühere als Stil 1. 

Im sechsten und letzten Teil 0,5 wurde die Bewegung des Kometen Enckc im Zeitraum 1786 bis 1971 
entsprechend untersucht, wobei die früheren Ergebnisse weitgehend bestätigt wurden. Die nicht gravitativen 
Effekte hatten ein Maximum um 1820 und fielen von dort an zu beiden Seiten hin etwa symmetrisch ab. Die 
Autoren erklärten dies durch eine Verlagerung der Rotationsachse. Allerdings ähnelt der zeitliche Verlauf 
eher einer Glockcnkurvc als einer Kreis funktion. 

Bei der Wiederkehr des Halleyschcn Kometen 1909 hatten P.H.Cowell und A.C.D.Crornrnelin r ' 6 erneut 
eine Verzögerung der Umlaufszcit um drei Tage gegenüber dem vorangegangenen Umlauf festgestellt, wovon 
zwei Tage nicht durch die Ungcnauigkcitcn der Berechnungen erklärbar waren. Bei einer späteren Untersu- 
chung der Bewegung des Kometen will D.K.Yeomans^ 7 aus Beobachtungen der beiden Erscheinungen 1911 
und 1835 signifikant r Q — 2.808A.E bestimmt haben. Dies erscheint jedoch fraglich. Erstens kann aus zwei 
Erscheinungen selten auch nur die säkulare Beschleunigung abgeleitet werden, geschweige denn deren Verlauf. 
Zweitens wurde A\ — angenommen, die radiale Komponente bzw. eine Unsicherheit in deren Annahme 
wirkt sich hauptsächlich auf die äußeren Beobachtungen aus, die aber zur Feststellung eines bestimmten 
Verlaufes sehr wichtig sind. Drittens waren die von Yeomans verwendeten Beobachtungen erheblich fch- 
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lcrhaft 58 und in Anbetracht ihrer Streuung von 6" zu ungenau. Viertens ergaben die hier durchgeführten 
Untersuchungen eine deutlich geringere Abnahme der Kräfte, als gemäß Stil 2. 

In der nachfolgenden Zeit wurden für etwa vierzig Kometen die nicht gravitativen Parameter bestimmt, 
seit 1979 auch vom Verfasser. Eine Übersicht gibt die Tab. 1.1. Bei einigen Kometen hatte der Verfasser 
versucht, auch Informationen über den Verlauf f(r) der nicht gravitativen Kräfte zu erhalten, was jedoch 
bei den betrachteten Kometen, hauptsächlich durch die geringe Anzahl der Beobachtungen in den äußeren 
Bahntcilcn, nicht mit Signifikanz gelang. Der damals kurz bevorstehende Halleyschc Komet bietet dazu in 
Anbatracht der zu erwartenden sehr hohen Zahl an Beobachtungen und seiner großen Helligkeit, die noch 
Beobachtungen in großer heliozentrischer Distanz ermöglicht, eine Gelegenheit, wie sie sich vermutlich bis 
zu seiner nächsten Wiederkehr nicht wiederholt. Nachdem der Komet am 16. Oktober 1982 in etwa 11 AE 
Entfernung 59 wieder entdeckt wurde, begann der Verfasser mit entsprechenden Berechnungen 60 , die später 
zum Thema der vorliegenden Arbeit wurden. 

Über die Bemühungen von Bessel und Whipple hinaus wurden auch weitere Betrachtungen von der Seite 
der Physik der nicht gravitativen Kräfte durchgeführt, die jedoch keine brauchbaren Ergebnisse lieferten. 

Grundsätzlich kann man die nichtgravitativen Kräfte über den Wärmehaushalt des Kometenkernes und 
die Sublimationsratc und -geschwindigkeit an der Oberfläche berechnen. Sind F und f Rcpulsivkraft und 
Beschleunigung des Kometen, M,R und g seine Masse, sein Radius und seine Dichte, und sind N.ji,v,p — 
fiNv Sublimationsratc pro Fläche. Molekulargewicht, Sublimationsgcschwindigkcit und Druck beim Obcr- 
üächeiielemcnt dO, so ist 



F = Mf = tipdO 1.5 

Ahnlich ergibt sich, wenn J der Trägheitstensor und lü der Spinvektor des Kometen sind, für das repulsive 
Moment M auf den Kometenkern 

M = cJJ = <l> r x pdO 1.6 



- üj J — <p r x p c 



mit M — und ü — im Falle eines sphärischen Komctcnkcrncs. 

Die Sublimationsratc und -geschwindigkeit ergibt sich für ein bestimmten Stoff unter vorgegebener 
Temperatur entweder empirisch oder aus der Thermodynamik 61 . Die Obcrhächcntcmpcratur ergibt sich aus 
Modellrechnungcn des Wärmehaushalt es des Kometen. Aus der Kontinuitätsglcichung 

$-V-Q + S)-W = 1.7 

(q Wärmeinhalt pro Volumen, j Wärmenuß, S Wärmcstrahhmgsfiuß. W Wärmeerzeugung abzgl. -verbrauch 
pro Volumen) ergibt sich unter Einführung des Wärmclcitungstcnsors K und der Artwärmc pro Gewicht c 
gemäß 

j = KVT 1.8 

q = pcT 1.9 

für den örtlichen und zeitlichen Verlauf der Temperatur T die Wärmclcitungsglcichung 

t(pc + [c^+p^]T)-V-(KVT)-W-V-S = . 1.10 

Für die Obcrfiächcntcmperatur T folgt nach Anwendung des Satzes von Gauß und der Energiebilanz 
von Wärmclcitung zum Komctcninncrcn, Sublimations wärme und Strahlungsnuß von Sonne und Komet 
senkrecht zur Oberfläche 

-KVT\ Q + LN + (eaT* - s) = 1.11 



58 Siehe dazu §§4.1,4.3 

59 nur l"5 vom durch V. V.Sawtschenko, Kiev Komet Zirk. 295(1982) vorausberechneten Ort 

die Ergebnisse der wohl ersten Bahnverbesserung nach der Wiederentdeckung siehe Sterne vi. Weltr. 22(1983), 59 
61 siehe etwa E.Clapeyron, Abhandlung über die bewegende Kraft der Wärme. Leipzig 1926. 20ff. 
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mit der Temperatur T, der Stcfan-Boltz mann- Konstante <j, dem Korrekturfaktor zum schwarzen Körper e, 
der Tiefe x. der Vcrdampfnngswärmc L und der Bcschcimmg s — ma.x(n ■ r [1 — A]s o /r 3 ,0), wobei n die 
Obcrfiächcnnormalc, r der Radiusvektor Komet — > Sonne, r — |r|, A die Albcdo und s die Solar konstante 
ist. 

Für eine Abschätzung der Temperatur kann man in der Encrgicbilanzglcichung die Wärmclcitung und 
Sublimationswärmc vernachlässigen und die Schwarzkörpertemperatur im Strahlungsfcld der Sonne anneh- 
men. Bei isothermer Oberfläche ist jedoch crsichtlichcrmaßcn auch die Sublimation in alle Richtungen gleich. 
Zur Berechnung der nicht gravi tativen Kräfte muß man daher die Wärmelcitungsglcichung für jeden Ort der 
Oberfläche mit der Bilanzglcichung als Rand- und der Strahlungstcmpcratur als Anfangsbedingung lösen. 

Ausgehend von diesem Grundprinzip haben mehrere Autoren Modcllrcchmmgcn unter Annahmen für 
die eingehenden Parameter durchgeführt. 

0. V.Dobrovolskij und M.Z.Markovich (>2 nahmen einen homogenen Kern aus Wasscrcis einerseits ohne, 
andererseits mit einer Staubschicht an der Oberfläche an. Den Sublimationsdruck nahm man zu log P — 
— 2720/T + 13.75 dyn/cm 3 an, wie er für Wasscrcis im Labor ermittelt wurde. Im zweitgenannten Fall 
mußte zusätzlich die Randbedingung für die Grcnzticfc, sowie die Diffusion des Gases durch die Staub- 
schicht berücksichtigt werden. Im ersten Fall ergab sich für die angenommenen Parameter (R — 1 km, 
Rotationsdaucr 6 Stunden) eine Verzögerung der höchsten Temperatur gegenüber dem subsolarcn Punkt 
um 120° an der Oberfläche und um 180° in x — Sem Tiefe, der lag angle betrug A — 31°. Die Amplitude 
der Temperatur betrug an der Oberfläche 12°C, bei Sern Tiefe 7°C. Im Falle einer Staubschicht betrug die 
Temperatur Verzögerung ebenfalls 120°, die Amplitude von 200°C war jedoch in 1 cm Tiefe auf wenige °C ab- 
gefallen mit einer Verzögerung von über einer Umdrehung. Die Staubschicht mit der hohen Wärmekapazität 
wirkt wie ein warmer Umschlag und wärmt den Kometen von allen Seiten her, sodaß auch in alle Richtungen 
etwa gleich viel Gas sublimicrt, sich die Kräfte weitgehend aufheben und von einem lag angle nicht mehr 
gesprochen werden kann. Die radiale Kraft komponente hatte in etwa die selbe Größe wie die transversale. 
Dies erklärt, warum alte Kometen, bei denen sich bereits eine Staubschicht an der Oberfläche gebildet hat, 
einen größeren lag angle haben. 

Neuere Modcllrcchmmgcn stammen von H.Rickman und C.Froeschle 6 ^ . Hierbei wurde angenommen, 
daß der Kometenkern aus einer Mischung von H 2 0- und C02-Eis besteht und auf einem Anteil der Oberfläche 
keine Sublimation stattfindet. Die Sublimationsratc wurde über die Clausius-Clapeyron-Glcichimg berechnet. 
Ferner wurde angenommen, wie dies Untersuchungen von J. Klinger 04 für Wasscrcis ergeben hatten, daß 
die Artwärmc proportional, die Wärmeleitfähigkeit umgekehrt proportional zur Temperatur zunimmt. Die 
Autoren berechneten über fünfzig Modelle unter Variation der Parameter. Die Ergebnisse erwiesen sich 
als erheblich abhängig von der Rotationsdaucr und der thermischen Trägheit 7^ — \J qCK. Temperatur- 
verzögerung und lag angle wachsen mit zunehmenden I t h an. die Tempcraturamplitudc nimmt ab. Vor dem 
Perihel sind Temperatur und nicht gravitative Kräfte geringer als nach dem Pcrihcl, bei hohem I t h ist der 
Unterschied sehr groß (Abbildung 1.4). 

Modelle für den Hallcyschcn Kometen wurden ausgearbeitet. Bei kleinem I t h nimmt die Kraft mehr, bei 
großem I t h weniger mit der heliozentrischen Distanz zu als nach Stil 2. Auch in Pcrihelnähc ist der Verlauf 
sehr unterschiedlich. Der lag angle ist vor dem Pcrihcl um einige Grad größer, beträgt in Pcrihelnähc 5° und 
bei r ps bAE etwa 30°. 

Bei weiteren Modcllrcchmmgcn mit Änderungen bezüglich einiger Details erhielten Rickmari und Froesch- 
Ze 65 insbesondere von Ith erheblich abhängende Prognosen für den Verlauf der nichtgravitativen Kräfte. Im 
Grcnzfall zu hohen Werten von I t h verläuft f\ etwa wie nach Stil 2, während f\ nur geringfügig von der he- 
liozentrischen Distanz abhängt. Allgemein ist der Verlauf sehr von Ith abhängig, in größerer heliozentrischer 
Distanz sogar um einige Zehncrpotcnzcn von Stil 2 verschieden. 

F.Hechler 66 hat den Gedanken geäußert, daß möglicherweise die transversale Kraft eine wesentlich gerin- 
gere Rolle spielt und die nichtgravitativen Effekte entsprechend den Vorstellungen von Bessel hauptsächlich 

62 Proc. IAU-Symp. 45(1972),287 

63 Cometary Exploration [Hrsg. T.I.Gombosi\. Budapest 1983. 1,95,3,109 

64 Icarus 47(1981), 320 

65 Astron.Astroph. 170(1986), 145, 161 

66 private Mitteilung, 1986 
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Abb. 1.4 Verlauf der nichtgravitativen Kräfte nach Rickmann und Froeschle 

Modelle 1-3: Rotationsdauer 10\ thermische Trägheit I th 130,500,1000. Modelle 4,5: Rotationsdauer 
50 h , Ith 130,1000. gestrichelt/durchgezogen: Verlauf vor/nach dem Pcrihcl. Die Parameter beziehen sich 
auf Stil 2. die nichtgravitative Beschleunigung ist /(r) — A(r)g(r). 



durch die Asymmetrie der radialen Kraft entstehen. Die zeitweiligen Fluktuationen könnten eventuell mit 
Hclligkcits ander ungen einhergehen. Dies wäre für die Bahnbestimmungen äußerst wertvoll, da dann der 
Verlauf der nicht gravitativen Kräfte weitgehend aus Hclligkcitsbcobachtungcn folgt. Leider ist derzeit eine 
Überprüfung oder gar die Feststellung formclmäßigcr Zusammenhänge aus den Beobachtungen nicht möglich. 
Pauschal gesagt wäre bei einer Zunahme der Umlaufszcit eine größere Helligkeit nach dem Pcrihcl zu er- 
warten und umgekehrt. Bei den meisten periodischen Kometen ist dies auch der Fall 67 , jedoch gibt es auch 
Gegenbeispiele. Bei dem Hallcyschcn Kometen ist die Helligkeit nach dem Pcrihcl größer als vor dem Pcrihcl 
und trifft dies nach den Untersuchungen des Verfassers auch auf die radialen Kräfte zu. 

Den Zusammenhang zwischen den nicht gravitativen Kräften und einerseits den zeitlichen Änderungen 
der Bahnelemente, andererseits den an einen als sphärisch angenommenen Kometenkern angreifenden Kräf- 
ten, gab Z.Sekanina GS an. In einer weiteren Untersuchung 69 betrachtet er als Spezialfall eine impulsartige 
Störung und die Frage, wie sich aus den Änderungen der Bahnclcmentc der Augenblick der Störung ermitteln 
läßt. Im dritten Teil seiner Untersuchungen wendet Sekanina dies auf den Hallcyschcn Kometen in seiner Er- 
scheinung 1910 an. P.E.Zadunaisky 70 hatte bei der Zusammenfassung der über fünftausend Beobachtungen 
zu 33 Normalorten und anschließenden Bahnbestimmung signifikante Diskrepanzen zwischen der Bahn vor 
und nach dem Pcrihcl festgestellt. Daraus leitet Sekanina Zeitpunkt und Größe einer impulsartigen Störung 
sowie Aussagen über die Rotation des Kometen ab. Aus heutiger Sicht sind diese Ergebnisse nicht haltbar. 
Der Verfasser hat anfangs die Normalortc von Zadunaisky ebenfalls verwendet (siehe §4.3) und dabei nur we- 
sentlich geringere Diskrepanzen gefunden. Sehr wahrscheinlich lagen die früher beobachteten Diskrepanzen 
an den damals noch erheblich unsichereren Massen der Planeten, wie dies auch von Bahnbestimmungen an- 
derer Himmelskörper her bekannt ist 71 . Im vierten Teil seiner Untersuchungen 72 erklärt Sekanina den Zerfall 
einiger Kometen durch die nichtgravitativen Kräfte, was jedoch sehr spekulativ ist. Im fünften Teil 73 leitet 
Sekanina die Rückwirkung der nichtgravitativen Kräfte auf die Rotation des Kometen ab, insbesondere die 
Änderung des Drchimpulscs durch das Rucks tcllmomcnt. Nach der bereits erwähnten Zusammenstellung 
der bis dahin bekannten Umlaufszcitänderungcn einiger kurzperiodischer Kometen versucht Sekanina im 
letzten Teil 74 , die als impulsmäßig angenommenen nichtgravitativen Effekte bei den einzelnen Kometen zu 
lokalisieren. 

Den Gedanken, die säkularen Änderungen der nichtgravitativen Kräfte durch eine Änderung der Rota- 
tionsachscnlagc zu erklären, verfolgt Sekanina weiter. Zunächst 75 leitet er Achscnlagc und Präzession für 
Komet Fayc ab, der von einer Beschleunigung zur Abbrcmsung wechselte. Später arbeitet er ein Verfahren 
aus, um aus den aus unterschiedlichen Erscheinungen berechneten nichtgravitativen Parametern die Koor- 
dinaten des Poles, den als zeitlich konstant angenommenen lag angle, die Präzessionskonstante, und die 
Rotationsgeschwindigkeit an der Oberfläche abzuleiten, und wendet das Verfahren auf die Kometen Encke, 
Kopff, Comas Sola und Brooks 2 an 7C> . Demnach kann sich die Achscnlagc von Umlauf zu Umlauf um 
teilweise mehrere Grad ändern. 

Über die allgemeinen Befunde hinaus, wonach Bestehen und Größenordnung der nichtgravitativen Kräfte 
und der lag angle sowie der Unterschied bei neuen und alten Kometen in dem gemäß Wärmchaushalt und 
Sublimation zu erwartenden Bereich liegen, stellen diese Untersuchungen die einzige bisherige Verbindung 
zwischen der Physik der nichtgravitativen Kräfte und den Beobachtungen dar. Ein Nachteil des Verfahrens 
besteht darin, daß die Lösungen nicht eindeutig sind. Darüber hinaus ist erst ab einer größeren Anzahl an 
Erscheinungen (ab etwa sieben) eine brauchbare Genauigkeit erreichbar. Ferner sind Bedenken berechtigt, in 
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69 ibid., 19 

70 Astron. Journal 71(1966),20 

71 s. etwa J. Schubart, Mitt.Astron.Ges. 21(1966),65,25(1968),171 

72 a.a.O., 296 

73 ibid, 347 

74 ibid 19(1968),351 

75 Proc. IAU-Symp. 45(1972), 294 

76 Astron. Journal 84(1979),1894 : 89(1984), 1573,90(1985), 1370,2335, 91(1986),422 
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welchem Umfang die Änderungen der nicht gravitativen Kräfte überhaupt auf Verlagerungen der Rotations- 
achse zurückgeführt werden können. Eine wichtige Kontrolle kann die Normalkomponentc der Kräfte sein, 
die bei dem Verfahren von Sekanina nicht verwendet wird und bisher nur für wenige Kometen berechnet 
wurde. Für Komet Kopff erhielt der Verfasser 1984 aus Beobachtungen 1932 bis 1983 A3 — —0,04. aus den 
Erscheinungen 1958 bis 1983 A3 — —0, 09, eine Untersuchung durch G.Sitarski,B. Todorovic-Juchniewicz und 
H.Rickman 77 ergab A3 — —0, 28 + 0, 02(t— 1964). Nach dem Modell von Sekanina müßte dagegen A3 positiv 
sein. 

Die Anwendung eines thermischen Modclles für den Halleyschcn Kometen von P.Mahr 78 unter Verwen- 
dung der Rotationsachscnlagc nach Z. Sekanina ergab eine schlechte Vorhersage für die Position des Kometen 
beim Vorbeiflug der Sonde Giotto im März 1986. 

Zusammenfassend bergen die Modcllrcchnungcn zwar keine grundsätzlichen Schwierigkeiten. Aufgrund 
der großen Zahl der eingehenden Parameter lassen sie jedoch gegenwärtig keinerlei Aussagen über den Verlauf 
der nicht gravitativen Kräfte zu. Wie die Ergebnisse der Bahnbcstimmungcn nahelegen, dürfte eine Theorie 
auch allenfalls für normale, nicht zerfallende oder erlöschende Kometen möglich sein. Ebenso muß man 
sich grundsätzlich mit einem bestimmten Gcnauigkcitsbcrcich von ca. 5% zufrieden geben, weil darunter 
erratische, nicht mehr zuverlässig modcllicrbarc Effekte infolge der Aktivität des Kometen gegeben sind. 

Als am meisten sinnvoll erscheint es derzeit, Aufschlüsse über den Verlauf der nichtgravitativen Kräfte 
aus den Beobachtungen zu erhalten. Der Verlauf des Betrages der Kraft hängt nicht von der Rotationsach- 
scnlagc und -daucr und der Figur des Kometen ab, und dürfte bei ähnlicher physikalischer Beschaffenheit 
für die verschiedenen Kometen ähnlich sein, was für die Bahnbestimmung und Ephcmcridcnrcchnung von 
großem Wert wäre. Bei dem Vergleich mit den Modcllrcchnungcn dürfte sich zumindest die thermische 
Trägkcit des Komctenkerncs abschätzen lassen. Wenn sich die Komponenten der nichtgravitativen Kraft in 
verschiedenen Bahnteilcn ermitteln lassen, kann daraus die Lage der Rotationsachse erschlossen werden. 



77 Astron. Astrophys. 188(1987), 206 

78 ESOC Giotto Flight Dynamics Report 1 No.4 (1986), 17; siehe auch §4.1 
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2. Theoretische Grundlagen 

2.1. Die Bewegungsgleichungen 

2.1.1. Gravitativc Bewegung 

2.1.1.1. Bewegung im Gravitationsfeld eines Himmelskörpers 

Vorgegeben sei eine Raumstruktur 

ds 2 =g liV dx tl dx v 2.1 

Die Bewegung in solch einem Raum ergibt sich aus dem Prinzip der kleinsten Wirkung, nach dem sich ein 
Objekt verhält, um von einer Eigenzeit zu einer anderen zu gelangen: 



|L(x,x) 



2.1 



W = / L(x, x) ds 



m m dx ß dx v 

L = — = — U „ 2.3 

2 2 J "-" ds ds 

(m Ruhemasse, s/c Eigenzeit). 

Die Lösung des Variationsproblcmcs sind die Eulerschcn Gleichungen 

d OL _ dL 
dsddx x /ds dx x 

Setzt man L ein. erhält man 

d m dx y m d 2 x y 1 dx v dx a mdx v dx a 

s ( t 9 "* ~ds- ] = ^ -w + 2^- +fl '»-' ) "dr"dr ] = y at^*— 2 - 5 

d, 2 x x . dx" dx a 

ds 2 va ds ds 

rL = ^(g^a+g^.-gua^/gxf, 2.7 

Darin kann man die beidseitig auftretenden Differentiale nach der Eigenzeit auch weglassen oder durch 
die Ableitung nach einem anderen Parameter, insbesondere der Koordinatenzeit, ersetzen. Nachfolgend 
verwenden wir die Bezeichnungen x — x 1 ,y — x 2 ,z — x A für die räumlichen Koordinaten, t — x 4 für die 
Koordinatenzeit, sowie r 2 — x 2 + y 2 + z 2 und r ■ v — x4zX + y^y + z ji z — r ^i r - 

a) Standardkoordinaten der Schwarzschildmctrik 

Der Raum um einen Massenpunkt wird durch die Schwarzschildlösung der Einstcinschcn Fcldgleichungcn 

beschrieben 1 : 

ds 2 = [1 - 2-1 dt 2 - 2- dr 2 - (dx 2 + dy 2 + dz 2 ) 2.8 

r r 

Die hier auftretenden Koordinaten x,y.z nennt man Standardkoordinaten der Schwarzschildmctrik. Das 
formale Ausrechnen der T aus den abgelesenen gij ergibt die Bcwcgungsglcichungcn 

d 2 x k u. , 2 u,(\ 1 ? (r-v) 2 / 1 \1 . r-v d A 

i^=-^ k+ ^{[^- v+ ^( i+ w^m)^ x+ ^mät x ) {k=1 ' 2 ' s) 2 - 9 



also 



mit 



Auf deren Ableitung kann hier nicht eingegangen werden; siehe dazu H.Stcpha,ni, Allgemeine Relativitätstheo 
Berlin 1977. 95ff. 
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b) Isotrope Koordinaten 

Die Metrik g um einen Massenpunkt kann man ad hoc als eine Reihe nach den Potenzen des reziproken 
Abstandes von einem Punkt zusätzlich eines anisotropen Tcrmcs entwickeln, wobei als konstanter Tcrm für 
r — > oc die Metrik des Minkowski- Raumes ds 2 — c 2 dt 2 — (dx 2 + d,y 2 + dz 2 ) anzunehmen ist. Wählt man 
dazu die Form der Eddington-Robcrtson-Rcihc 

ds 2 = (1 - 2a 1 - + 2/3^ ...)c 2 dt 2 - (1 + 1"i- + ...) {dx 2 + dy 2 + dz 2 ) - 2-^ dx i dx j ... 2.10 

wobei jetzt die räumlichen Koordinaten einen einheitlichen Vorfaktor haben {isotrope Koordinaten), ergibt 
das formale Ausrechnen 2 und Einsetzen der T aus den abgelesenen g^ die Bcwcgungsglcichungcn 

Vergleicht man obige Reihenentwicklung mit der Schwarzschildlösung, folgen für die den Einsteinschcn 
Fcldglcichungcn entsprechenden Werte der Koeffizienten a — ß — -y — 1 und Sij — ,! . Das Verhältnis 
der isotropen Koordinaten zu den Standardkoordinaten der Schwarzschildlösung beträgt 1 — -. das der Ko- 
ordinatenzeiten 1 4 . Durch die Korrespondenz zu den Ncwtonschcn Bcwcgungsglcichungcn im klassischen 
Grcnzfall c — > oo folgt außerdem fi — MG — k 2 [M Sonnenmasse, G Ncwtonschc Gravität ions konstante, 
k Gaußschc Konstante). Außerdem folgt nach entsprechender Anwendung, wenn der Massepunkt sich sei- 
nerseits im Feld eines anderen befindet, für -^^^{l + v 2 /2) + -^-/i 2 (l + v 2 j2) — 0, im Schwerpunktsatz 
tauchen also die speziell-relativistischen Massen auf. 

An Unterschieden gegenüber der klassischen Rechnung bestehen im Wesentlichen folgende relativistische 
Effekte: 

a) Bedingt durch die Zusatztcrmc in obiger Bcwcgungsglcichung erfolgt die Bewegung der Himmelskör- 
per nicht mehr auf einem Kegelschnitt, in erster Näherung erfolgt eine Pcrihcldrchung 5 . Die klassischen 
Elemente sind nicht mehr eindeutig definiert sondern hängen von den gebrauchten Koordinaten ab. 

b) Die Bewegung des Lichtes ist, ausgedrückt in den Koordinaten, nicht mehr linear, was bei der Be- 
rechnung der Richtung, in welcher Himmelskörper beobachtet werden, zu berücksichtigen ist. 

c) Bei der Integration der Bcwcgungsglcichungcn tritt die Koordinatenzeit auf. die von der auf der Erde 
gemessenen Zeit unterschiedlich ist. 

Bei der Berechnung des Verhältnisses Koordinatenzeit zu Eigenzeit d 2 t/ds 2 der Erde nach Gl. 2.6 
erhält man analog zu Gl. 2.9 und Gl. 2.10 einen nur von r sowie einen von r ■ v abhängigen Anteil, der 
sich als Vcrlangsamung der Uhr bei Annäherung an das Gravitationsfeld bzw. als Zeitdilatation infolge 
der Geschwindigkeit deuten läßt. Die Einheit der Koordinatenzeit TDB wurde jedoch so gewählt, daß sie 
säkular mit der Erdzeit ET übereinstimmt, und nur wegen dem durch die Elliptizität der Erdbahn leicht 
veränderlichen r bedingte periodische Differenzen von unter 0,002,s auftreten 6 . Der drittgenannte Effekt 
braucht daher in der Praxis nicht weiter beachtet zu werden. 

Bei genauer Rechnung müßte auch der Lichtweg in den verwendeten Koordinaten integriert werden. Der 
Haupteffekt auf die Bewegung des Lichtes ist die Aberration, die zu berücksichtigen ist (s. §2.5.1). Danach 
kann in ausreichender Näherung die Richtung des Objektes klassisch berechnet werden, denn ansonsten tritt 
nur eine Vergrößerung der Elongation zur Sonne auf, die bei einem Objekt am scheinbaren Sonnenrand 
1"7 beträgt und mit der Elongation schnell abnimmt 7 . Bei dem hier bearbeiteten Kometen konnte dies 
unberücksichtigt bleiben, da keine Beobachtungen mit sehr geringer Elongation von der Sonne vorlagen. 



explizit durchgeführt u.a. bei V.A.Brumberg, Relativistische Himmelsmechanik. Moskau 1972. 163,38211., s.auch 

Proc.IAU Symp. 109(1984),21 

Die beobachtete Bewegung natürlicher und künstlicher Objekte im Sonnensystem bestätigt diese Werte gut, siehe etwa 

J.D.Anderson,G.S.Levy,N.A.Renzetti Proc.IAU Symp. 114(1985), 337; E.V.Pitjeva, Bull. Inst. Theor. Astr. 

15(1986),538 

siehe dazu und zur Bedeutung der Koeffizienten etwa S. W einberg, Gravitation and Cosmology. New York 1972, 183ff. 

Die Integration in S t and ardko ordinalen ergibt einen glatteren Verlauf der Elemente als in isotropischen Koordinaten, 

siehe etwa G.Sitarski, Acta Astron. 33(1983), 300 

siehe dazu G.M.Clemence,V.Szebehely, Astron. Journ. 72 (1967), 1324 

im Einzelnen angegeben bei V.A.Brumberg, Astron.Zh. 58(1981), 190; USNO Circ. 163(1981), A7, 167(1983), A9-1 
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Der erste Effekt bewirkt bei dem hier betrachteten Kometen mir Positionsänderungen von unter 0" 1 
pro Umlauf. In der heliozentrischen Position der Erde beträgt der Fehler pro Jahrhundert etwa CT 05. Die 
Berechnung der Position der Erde muß sehr genau erfolgen, da sie für die Berechnungen grundlegend ist. 
Insbesondere hat sich der Hallcyschc Komet in den Jahren 1835/6 und 1910/1 der Erde erheblich genähert, 
sodaß sich bei Vernachlässigung der relativistischen Effekte ein systematischer Fehler in der Darstellung der 
crdbczogcncn Positionen von etwa 1" ergeben würde. Darüber hinaus werden die Ephcmcridcn der großen 
Planeten heutzutage standardmäßig relativistisch berechnet. Für verschiedene Zwecke, wie Bahnrechnungen 
der erdnahen Klcinplancten, ist dies auch erforderlich. Es sollte vermieden werden, von Fall zu Fall die 
Grundlagen zu wechseln. Der rechnerische Aufwandt der Mitnahme der relativistischen Effekte ist zudem 
sehr gering. Daher wurde dies bei allen vorliegenden Rechnungen durchgeführt. 

2.1.1.2. Mehrkörperproblem 

Sind mehrere Massenpunkte vorhanden, so können außer in praktisch nicht vorkommenden Ausnah- 
mefällen (r < fJ>/c 2 ) wegen der Korrespondenz der Einstcinschcn Fcldglcichungen mit dem Ncwtonschcn 
Gravitationsgesetz die von ihnen hervorgerufenen Metriken aufaddiert werden. Für jeden Planeten tritt 
daher in der Bcwcgungsglcichung ein der rechten Seite entsprechender Tcrm hinzu, wobei die Position des 
betrachteten Objektes vom jeweiligen Planeten aus zu rechnen ist. In der Praxis ist es völlig ausreichend, bei 
den Planeten nur den klassischen Anteil zu berücksichtigen. Die Bcwcgungsglcichungcn für das i-tc Objekt 
sind dann 



-E£(*f-*J) + Aä 



2.12 



.,-/-, 



(j Index der restlichen Objekte, n Anzahl an Objekten), Dabei sind Ax k die relativistischen Effekte je nach 
Art der verwendeten Koordinaten. Die relativistische Beschleunigung des Zcntralkörpcrs durch die Gravi- 
tation der Planeten beträgt insgesamt (i(l -\- v 2 /2) Ax k — — Y^j Mj(l + v2 /2) Aö;^, sie sollte berücksichtigt 
werden, damit der Schwerpunkt des Systcmcs durch die gegenseitigen relativistischen Effekte nicht beschleu- 
nigt wird. 

In der Praxis verwendet man statt den Koordinaten häufig die formalen Koordinatcndiffcrcnzcn zum 
Zcntralkörpcr, sodaß dieser stets die 'Koordinaten 1 (0,0,0) hat. Zieht man in der Bcwcgungsglcichung des 
Zcntralkörpcrs und des betrachteten Körpers den Tcrm des jeweils anderen vor die Summe, und subtrahiert 
beide Gleichungen voneinander, erhält man als Bcwcgungsglcichung ausgedrückt in den Koordinatendiffe- 
renzen, die wir hier einmal ebenfalls mit x k bezeichnen wollen. 

*? = Jj ^p 1 - k +i>( x M - A) + (Af - - A * k) 2 - 13 

Die ersten Tcrmc in der mittleren Klammer sind die direkten Störungstcrme, die auch im Incrtialsystcm 
auftraten, die zweiten nennt man die indirekten durch die Störungen der Planeten auf die Sonne. 

2.1.1.3. Die Bewegung des Erde- Mond- Systemes 

Eine besondere Betrachtung ist bei Anwesenheit von zwei verhältnismäßig benachbarten Himmelskör- 
pern erforderlich, konkret für die Bewegung des Erde-Mond-Systcmes. Man kann zwar die Bewegung 
von Erde und Mond als zwei getrennte Objekte numerisch berechnen. Dieses Verfahren ist aber sehr 
unökonomisch. Die Berechnung geschieht in der Praxis durch numerische Integration (s. §2.3). Die Rech- 
nung müßte mit unverhältnismäßig kleiner Schrittweite erfolgen, damit nicht durch kleine Ungcnauigkcitcn 
die benachbarten Objekte auseinanderlaufen, und damit die Ergebnisse noch brauchbar interpoliert werden 
können. Um hier keine erratischen Ergebnisse zu erhalten, muß die Schrittweite wesentlich kleiner als ein 
siderischer Monat sein, während ohne den gegenseitigen Störungen die Jahreslänge maßgeblich wäre. In 
der Praxis könnte bei längeren Rechnungen eine Schrittweite von 0,4 Tagen nicht überschritten werden 8 . 
Darüber hinaus sind für Erde und Mond in den Bcwcgungsglcichungcn zusätzliche rechenintensive Tcrmc 
wegen ihrer Figur und zur Librationsdämpfung zu berücksichtigen 9 . 



8 siehe auch C.Oesterwinter, C.J.Cohen, NWL Technical Report No. TR-2693(1972), 78-81 

9 ibid. 22-36 
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Die Bewegung des Schwerpunktes von Erde und Mond (Bary Zentrum) ist von ihren gegenseitigen 
Störungen weitaus geringfügiger betroffen. Die Bewcgungsgleichung für seine Position (fig + (im)' x b — 
(IeX-e + ßM^-M erhält man sofort durch zweimaliges Ableiten nach der Zeit und Einsetzen der Bcwcgungs- 
glcichungcn von Erde und Mond. Dabei fallen die direkten Tcrmc der gegenseitigen Störungen mit der kleinen 
gegenseitigen Distanz im Nenner heraus, und die verbleibende Differenz der indirekten Tcrmc ist sehr klein. 
Dies ist im Wesentlichen die rcactio auf die Störungen der Sonne durch die 'Figur' des Erdc-Mond-Systcmcs. 
Hauptsächlich entsteht eine Pcrihcldrchung um 6"7 pro Jahrhundert 10 . 

Zur Vermeidung der genannten Schwierigkeiten ist es daher zweckmäßig, die Bewegung des Baryzcn- 
trums zu integrieren. Für die hierbei noch verbliebenen Tcrmc können die Position von Erde und Mond 
mit völlig ausreichender Genauigkeit durch eine genäherte Berechnung der geozentrischen Mondposition und 
Anwendung der Definition des Schwerpunktes erhalten werden. Statt der Erdposition interpoliert man bei 
Bedarf die des Baryzcntrums und berechnet die Rclativposition ebenfalls analytisch (s. §2.5.2). 

2.1.1. Nicht gravitati vc Bewegung 

Für die nichtgravitative Bewegung läßt sich noch keine Theorie ableiten. In Anlehnung an Marsden und 
Sekanina sowie aus dem Gesichtspunkt einer praktischen Handhabung (s. §2.4) soll einstweilen als Ansatz 
eine Superposition mehrerer Funktionen für die radiale, transversale und normale Kraft, jeweils separiert in 
den explizit entfernungs- und zeitabhängigen Anteil, verwendet werden (s. Gl. 2.37,2.56). 

2.2. Die Anfangswerte und oskulierenden Elemente 

Die Bcw~cgungsglcichungcn sind Differentialgleichungen zweiter Ordnung der Koordinaten nach der Zeit, 
sodaß sechs Initialwerte nötig sind. Bei Verwendung der Bcwcgungsglcichungcn in der obigen Form sind dies 
Ort und Geschwindigkeit x, x. 

Im klassischen Ein- und Zwcikörperproblcm tritt auf der rechten Seite der Bcwcgungsglcichungcn nur der 
erste Tcrm auf. Die Integration kann dann geschlossen durchgeführt werden 11 , wobei sich eine Bewegung 
gemäß der Kcplcrschcn Gesetze ergibt. Die für die Beschreibung der Bewegung sowie für die Anschau- 
ung zweckmäßigsten Integrationskonstanten sind die sechs klassischen Bahnclcmcnte T, q bzw. M, a sowie 
e, lü. Q, i. Aus diesen Elementen lassen sich x und x für einen vorgegebenen Zeitpunkt berechnen, umgekehrt 
folgen aus gegebenen x,x die klassischen Elemente. Für den Zusammenhang zwischen Ort und Geschwin- 
digkeit und den Elementen gelten die Beziehungen 12 



k^/psmismi} — yz — zy 

k^/psmi cos Q — xz — zx 2.14 

k^/p cos i — xy — yx 

Jp 

e sin v — — (xx + yy 4- zz) 
kr 

P 

ecosu — 1 2.15 

r 

r cos u — x cos H + y sin £2 

r sin u — (— .xsinSi + ycosCl) seci 2.16 

a= P j{l-e 2 ) 

jU = fc/|o| 1,B 2.17 

UJ = u — V 



siehe etwa P.Bretagnon, Astron. Astrophys. 84(1980),340 

siehe etwa J.Bauschinger,B±e Bahnbestimmung der Himmelskörper. 2. Aufl., Leipzig 1928. 126ff 

ibid. 348; K.Stumpff, Himmelsmechanik. Berlin 1951. l,180,190f. 
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e < l(EUipse) : tan f - J-gf tanf; M - (t-T)fj,= E- esinß 

e > l(Hyperbel) : tanh f - ,/gftanf; M = (£- T)/i - esinhS- £ 2.18 

e bö l(para&eteafc) : Q = %<ßp-\l = i^f I Q(t-T) = tan | + |(1 - 27)tan ;i | - | 7 (2 - 37)tan 5 § ... 

Dabei ist fc = 0, 01720209895^/1 + /^//i. 

Falls mehr als zwei Körper zu betrachten oder die relativistischen Effekte oder zusätzliche Kräfte zu 
berücksichtigen sind, können die Bcwegungsglcichungcn nicht geschlossen integriert werden. Bei Objekten 
im Sonnensystem erfolgt die Bewegung dennoch auf Bahnen, die der Zwcikörpcrbcwcgung sehr ähneln. 
Nach wie vor kann man Ort und Geschwindigkeit rein formal nach obigen Formeln umrechnen: (x, x) -o- 
{X 1 , q oder M,a\ e,üJ,Cl,i). Auf diese Weise erhalt man die zur jeweiligen Zeit gehörenden oskulierenden 
Elemente. Sie sind zweckmäßig, da sie eine Anschauung über die ungefähre Bahn geben, sowie die einfache 
Berechnung genäherter Ephcmcridcn nach den geschlossenen Formeln der Zweikörperbewegung erlauben. 

Aus diesem Grund sind üblicherweise und auch hier (§4) als Bestimmungsstücke der Bewegung nicht 
die rechtwinkligen Initial werte, sondern die oskulierenden Elemente angegeben. Sic lassen sich zur Weiter- 
verwendung nach den vorgenannten Formeln ineinander umrechnen. 

2.3. Die Integration der Bewegungsgleichungen 

Zur Integration der Bcwegungsglcichungcn ist es naheliegend, für die Beschreibung der Bewegung Va- 
riablen zu benutzen, die sich nur langsam ändern. Am geeignetesten erscheinen hierfür die klassischen 
Bahnclcmcntc, die im speziellen Fall des Ein- und Zwcikörpcrproblcmcs zeitlich unverändert, ansonsten nur 
langsam veränderlich sind, einmal von besonderen Fällen naher Annäherungen abgesehen. In den Bcwe- 
gungsglcichungcn kann man dann den ersten, von der Sonne herrührenden Tcrm erledigen, indem man die 
Position nach den Formeln für die Zwcikörpcrbcwcgung berechnet, und die restlichen Tcrmc entweder durch 
Ansetzen einer Reihenentwicklung und Berechnen ihrer Koeffizienten durch analytische oder numerische 
Integration (allgemeine Störungen), oder direkt durch numerische Integration der Tcrmc selbst (spezielle 
Störungen) berechnet und hinzufügt. 

Der erstgenannte Weg gelingt nur bei Bahnen mit allenfalls mäßiger Elliptizität, geringer Neigung zur 
Bahnebene der störenden Planeten, und nicht allzu großen Störungen. Ein Problem ist außerdem, daß von 
vorneherein nicht alle Argumente zu überblicken sind, nach denen die Reihen entwickelt werden müssen, 
um innerhalb einer vorgegebenen Genauigkeit zu bleiben. Darüberhinaus lassen sich zusätzliche Kräfte nur 
schwerfällig berücksichtigen. Das Verfahren der allgemeinen Störungen wurde früher umfangreich ausgearbei- 
tet und verwendet, hat aber wegen den genannten Schwierigkeiten heute nur noch nebensächliche Bedeutung, 
wie etwa zur Verifizierung eines nichtroticrenden Bezugssystcmcs oder der Frage der langzeitlichen Stabilität 
des Sonncnsyst eines. Für die meisten Kometen ist dieses Verfahren ungeeignet. 

Vorteilhafter ist die Berechnung der speziellen Störungen. Sic wurde erstmals von E.Halley bei der 
Vorausberechnung der Wiederkehr des nach ihm benannten Kometen für 1758 angewendet. Auch hierfür 
wurden zahlreiche Methoden ausgearbeitet. Am meisten durchgesetzt hat sich das Verfahren von Encke 
und Bond, was einfach darin besteht, die hinteren Tcrmc der Bcwegungsglcichungcn in den rechtwinkligen 
Koordinaten entlang des ungestörten Weges numerisch zu integrieren und zu ihm hinzuzufügen, wobei nach 
längerer Integration für die Fortführung der ungestörten Rechnung auf die veränderte Bahn übergegangen 
wird. 

Günstigcrc Variablen als die rechtwinkligen Koordinaten sind die Polarkoordinatcn oder gar die Ele- 
mente 1,1 . Die Störungstcrmc lassen sich durch Durchdiff'crcnzicrcn der Umrcchnungsformcln leicht auf diese 
Variablen transformieren. Ein praktischer Nachteil ist jedoch, daß die Ausdrücke erheblich länger werden und 
die vergleichsweise rcchcnintcnsivcn Winkelfunktionen enthalten. Daher wurden Methoden ausgearbeitet, 
welche statt der Bahnclcmcntc ähnliche Invarianten verwenden 14 . Weitere Nachteile gegenüber der unmit- 
telbaren Berechnung der Störungen in den Koordinaten, wie die schwierige Berücksichtigung zusätzlicher 



siehe etwa K.Stumpff. Himmelsmechanik. Bd. 2. Berlin 1965. 383ff. 
ibid. 407ff 
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Kräfte anderer Art, konnten aber auch damit nicht beseitigt werden. Bei Berücksichtigung der Störungen 
durch die inneren Planeten, wie sie inzwischen üblich ist. muß außerdem eine wesentlich kleinere Schrittweite 
gewählt werden, sodaß die Vorteile, die zur Verwendung dieser Variablen führten, nicht mehr bestehen. 

Aus diesen Gründen wird heutzutage allgemein die Bewegung der Himmelskörper durch numerische 
Integration der Bcwegungsglcichungcn, ausgedrückt durch die rechtwinkligen Koordinaten als Variablen, 
berechnet, was auch bei vorliegenden Berechnungen der Fall war. 

Für die Durchführung der Integration sind im Wesentlichen zwei Methoden in Gebrauch. Zum Einen 
kann man fordern, daß die Lösung der Differentialgleichung durch eine Funktion approximiert wird, für 
die innerhalb eines kleinen Intcrvallcs die Koeffizienten noch für möglichst hohe Potenzen des Argumentes 
konstant bleiben (Verfahren von Runge-Kutta) 15 . Zum Anderen kann man ein Polynom fordern, welches 
auch die Funktionswerte an den vorangegangenen Stützstellcn darstellt (Verfahren von Adams- Stornier) 16 . 

Das erstgenannte Verfahren hat den Nachteil, daß bei jedem Integrationsschritt die Funktionswerte 
mehrmals berechnet werden müssen, sowie das Auftreten umfangreicherer Formeln. Es rentiert sich nur, 
wenn neben der Lösung der Differentialgleichungen auch ihre Ableitungen benötigt werden oder wenn die 
Differentialgleichungen sehr einfach sind. Beim hier gegebenen Problem benötigt man nur die Lösung und 
ihre erste Ableitung (Koordinaten und Geschwindigkeit des integrierten Himmelskörpers). Der Aufwand 
für die reine Integration ist proportional der Zahl der Himmelskörper. Demgegenüber enthalten die Dif- 
ferentialgleichungen rechen- intensive Funktionen wie eine Wurzel, und der Aufwandt zur Berechnung der 
Funkt ions werte nimmt etwa quadratisch mit der Anzahl der Himmelskörper zu. Daher wurde das zweitge- 
nannte Verfahren verwendet. 

Eine besonders geeignete Approximation der zu integrierenden Funktion, die automatisch die Darstel- 
lung der Funktionswerte der vorangegangenen Stützstellcn sicherstellt, und aus der sich sehr einfach alle 
benötigten Formeln ableiten lassen, ist die Ncwtonschc Intcrpolationsformcl: 

x(t) = A° + tA 1 + -t(t - 1)A 2 + — t(t - l)(t - 2)A 3 + ... 2.19 

Dabei wird das Diffcrcnzcnschcma A gebildet gemäß A* + — A*- +1 — A*- für i — 0, 1,2, ...;j — 0,1,2... mit 
A'- — x(t — j), und ist es für diejenige Stützstclle in die Intcrpolationsformcl einzusetzen, von der an die 
Zeit t gerechnet wird. Dieser Stützpunkt hätte nachfolgend stets den zeitlichen Index j — t — 0, der jedoch 
weggelassen wurde. Da sich die Differenzen mithin aus den Funktionswerten für j > berechnen, kann nur 
für positive Werte von t eine gute Anpassung erwartet werden. 

Bezeichnet man die vom Argument t abhängigen Faktoren mit a a — 1, ai = t,a 2 — t(t — l)/2 &z c .. und 
führt die Integration durch, ergibt sich 

x{t) = a o A + aiA 1 + ... = J^ a n A n 2.20 

x(t) = x o + A ctodt + A 1 / aidt+... =^A n a n dt 

x(t) = x + x ■ (t - t ) + A I i a dt + Ai / / a^dt + ... - x + x (t - t Q ) + ^ A n / / a n dt 2.22 

mit 

n a n fa n dt ff a n dt 2 

1 t t 2 /2 

1 t t 2 /2 t 3 /6 

2 {t 2 - t)/2 (2t 3 - 3t 2 )/l2 {t 4 - 2t 3 )/24 

3 (t 3 - Zt 2 + 2t)/6 (i 4 - At :i + 4£ 2 )/24 (St 5 - 15t 4 + 20t 3 )/360 

4 (t 4 - 6t 3 + 11t 2 - 6t)/24 (12t 5 - 90t 4 + 220t 3 - 180t 2 )/1440 (2t 6 - 18t 5 + 55t 4 - 60t 3 )/1440 

10 C.Runge, H.König, Vorlesungen über numerisches Rechnen. Berlin 1924. 286ff.; E. Fehlberg, Zeitschr.f. angew. 

Math. u.Mech. 38{1958),421, 40(1960), 252, 449,44(1964), 83, T17, Computing 14(1975), 371 
16 ibid. 
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2.21 



Durch Lincarkombinationcn dieser Gleichungen erhält man die gesuchten Intcgrationsformcln. 

2.3.1. Die Integrationsformeln 

a) Berechnung von (x-\ — x ) aus (x — x\) 
Hierfür erhalten wir 

(x_i - x ) - (x - xi) = X! + x_i - 2.t„ - x [l - 1] + J^ A "(/ / + / / K 

= A° + — A 2 -— A 3 + — A 4 ... 
12 12 240 



r// 



2.2:3 



Mit dieser Formel, dem Prediktor, wird zunächst über den Bereich hinausextrapoliert, innerhalb dessen die 
Interpolationsformel der Funktion angepaßt ist. Nachdem der Wert der Differentialgleichung für den neuen 
Punkt berechnet und das neue Diffcrcnzcnschcma gebildet ist, kann das Integral durch die folgende Formel, 
nunmehr incrhalb des Gültigkeitsbereiches der Interpolationsformcl, verbessert werden. 

b) Berechnung von (x — x{] aus {x\ — x 2 ) 
Hier ergibt sich 



(x - xi ) - (xi - x 2 ) = x - 2x- x +x 2 = x [2 -2] + J2A n { / -2 / / )a n dt 



2.21 



= A° + A 1 + — A 2 -— A 4 ... 
12 240 



Diese Formel, der Korrektor, erlaubt die Verbesserung des mit dem Prediktor abgeschätzten Ergebnisses. 
c) Berechnung von x_i aus x 



_! - ± = ^ ^ / a ". 



dt 
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: -A° + ^A 1 - -A 2 + -A 3 - — A 4 .. 
2 12 8 720 



Diese Formel ist der Prediktor für die Geschwindigkeit. 
d) Berechnung von xq aus X\ 



ii =-^ A "/ o Q » 



2.26 

- -A° - ^A 1 + -A 2 - — A :i + — A 4 ... 
2 12 24 720 

Korrektor für die Geschwindigkeit. Falls die Geschwindigkeiten zwar zn integrieren sind, aber - etwa bei 
Vernachlässigung der relativistischen Tcrmc - nicht in die Bcwcgungsglcichnngcn eingehen, braucht mir dieser 
Korrektor angewendet zn werden. 



e) Berechnung von xq aus (x — x\) 

xo - (xi - x ) = - 



?'/■/■ 



2.27 

- — A° - ^A 1 + -A 2 - — A :i + — A 4 ... 
2 6 24 45 480 

Diese Form des Korrektors für die Geschwindigkeit ermöglicht ihre Berechnung aus der Koordinatendifferenz 
x — x\. Dies ist von Bedeutung, wenn die Geschwindigkeiten nur gelegentlich gebraucht werden - etwa für 
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die Berechnung oskulicrender Elemente - und daher nicht mit integriert werden sollen. Aber auch allgemein 
ist die Integration der Geschwindigkeiten zusammen mit den Koordinaten durch e) und f) vorzuziehen 
gegenüber der durch d) und e), damit sich nach längerer Rechnung nicht die Geschwindigkeiten von den 
Koordinaten entfernen. 

f) Berechnung von x_ 1 aus [x — X\) 
Addieren von c) und e) ergibt 

x_i - ( Xl - x„) = --A° + ^A 1 - -A 2 + — A 3 - — A 4 ... 2.28 

v ' 2 3 8 360 1440 

Der zu e) gehörende Prcdiktor für die Geschwindigkeit. Er wird benötigt, wenn die Geschwindigkeiten in 
die Bcwcgungsglcichung eingehen, etwa bei Berücksichtigung der relativistischen Tcrmc. 

Es sei noch angemerkt, daß sich auf ähnliche Weise auch Intcgrationsformcln mit besonderen Eigenschaf- 
ten herleiten lassen, etwa solche, die mehr als zwei Differenzen der bereits berechneten Koordinaten oder 
Geschwindigkeiten, im Übrigen aber nur die geraden oder ungeraden Differenzen der Beschleunigungen, 
enthalten. 

2.3.2. Umwandlung der Anfangswerte in Anfangsrandwerte 

Anfangs liegen nur x und x für einen Zeitpunkt vor. Um die Intcgrationsformcln anwenden zu können, 
müssen daraus die Differenzen der Koordinaten von zwei um eine Schrittweite voneinander entfernten Zeiten 
sowie das Diffcrcnzcnschcma. also letztlich die Koordinaten für mehrere umliegende Zeiten, berechnet werden. 



Durch Einsetzen der Zeiten t = 1,2,3... in Gl. 2.21,2.22 erhält man 



x x -x = x +Y A" f 1 [ a n dt = ^A" -t-^A 1 --A 2 + — A :i -— A 4 

1 „ Li 2 6 24 45 144 ° 

x 2 - Xo = 2x +Y A" f 2 f a n dt = 2A° + -A 1 + — A :i -— A 4 

° " £-i / / " fi 45 30 



t=3: x, - x = 3x +Y A" f 3 f a n dt = -A" + 9 A 1 + 9 A 2 + — A :i -— A 4 

Z - 1 J J 2 2 8 20 160 

t=4: x t - x„ = 4x +Y A" [ 4 fa n di= 8A° + -A 1 + -A 2 +-A :i 

„ Jo J 3 6 45 

^ .„ ['' f , 25 A „ 125 Al 125 . , 25 A , 125 A „ 

t=5: xk - x = hx a + > A" / / a n dt = — A° H A 1 H A 2 H A' ! H A 4 

Z - 1 J J 2 6 8 36 96 



2.29 



usw., sowie 



dt= A° +-A 1 +— A 2 +-A 3 + — A 4 
2 12 24 720 

t=2: x 2 - x = J2 A" f a n dt = 2A° +2A 1 + *A 2 -^A 4 



3 90 



1: Xi — x — 2^ A n / a n 

2: x 2 - x = y A" / a n 

t=3: i 3 - x = Y A" [ S a„dt = 3A° + -A 1 + -A 2 + ?A 3 --A 4 

„ /<. 2 4 8 80 

t=4: x 4 - Xo = y A" T a„<a = 4A° +8A 1 +— A 2 + -A 3 + -A 4 

„ L 3 3 45 

v- » „ /""' , ,o 25 . . 175 . , 75 A , 425 A , 

t=5: x-, -x„=> A" / a„dr. = 5A°H A 1 H A 2 H A J + A 4 

6 ° Z-, y » 2 24 8 144 



2.3(1 
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Durch Anwendung dieser Formeln in beide Richtungen erhält man die gewünschten Koordinaten. Wer- 
den in den Intcgrationsformcln noch die Terme bis zum Grad / berücksichtigt, sind sinnvollcrweise l j% 
Ortcr beidseitig zum Startpunkt zu berechnen, und dabei noch die Terme bis zum ('/2 — 2)-ten Grad zu 
berücksichtigen. Anfangs berechnet man x (x ,x ), und damit iterativ verbesserte Ortcr und Geschwindig- 
keiten und daraus wiederum Beschleunigungen. 

2.3.3. Zusätzliche Anmerkungen 

Zur Ableitung der obigen Formeln wurde die Ncwtonschc Intcrpolationsformcl in der allgemein üblichen 
Form angesetzt, bei der die Differenzen A in positiver Richtung der Zeit gebildet werden. Bei der Durchführ- 
ung der Integration rechnet man das Argument häufig in der entgegengesetzten Richtung, da X-\ der auf x 
folgende Integrationsschritt ist. und bildet entsprechend auch die Differenzen in der umgekehrten Richtung, 
also obige A ! ersetzen sich durch (— f)*A\ In diesem Fall sind in obigen Formeln also die Vorzeichen der 
ungeraden Differenzen sowie der Geschwindigkeiten umzudrehen. 

Die Praxis zeigt, daß für Berechnungen der Bewegung von Himmelskörpern im Sonnensystem die Anwen- 
dung des Korrektors überflüssig ist. Gegebenenfalls ist es günstiger, eine geringere Intcgrationsschrittwcitc 
zu wählen. Ebenso kann man in nahezu allen Fällen die Integrationsschrittweite konstant beibehalten. Die 
vorliegenden Rechnungen wurden ohne Verwendung des Korrektors und mit konstanter Integrationsschritt- 
weite von etwa 0,6 bis 1,0 Tagen durchgeführt. Dabei wurden noch Terme bis zum zehnten Grad in den 
Intcgrationsformcln berücksichtigt, also aus elf vorliegenden Orten ein zwölfter berechnet 17 . 

Aus der Dcfinitionsglcichung des Diffcrcnzcnschcmas folgt für die Differenzen für den nächsten Integra- 
tionsschritt A_^ — Aq — A!_j_. Man braucht daher nicht das gesamte Diffcrcnzcnschema abzuspeichern und 
bei jedem Schritt neu zu berechnen, sondern nur den jeweils oberen Differenzenvektor, der auch tatsächlich 
in den Intcgrationsformcln auftritt. 

Bei denjenigen Schritten der Integration, bei denen oskulierende Elemente zu berechnen sind, empfiehlt 
es sich, bei der Bildung des neuen Diffcrcnzcnschcmas zusätzlich die Änderung der letzten Differenz aufzu- 
bewahren, um zur Verringerung von Rundungsfchlcrn - insbesondere bei Weiterverwendung der Elemente 
als Startwerte für andere Integrationen - in Gl. 2.27 noch einen Grad höher als bei der Integration zu 
berücksichtigen. 

Bei der zumindest bei kreisähnlichen Bahnen in der Praxis als günstig befundenen Integrationsschritt- 
weite von etwa V400 der Umlaufszcit sind die Koordinatendifferenzen Xi — x^i um zwei Größenordnungen 
kleiner als die Koordinaten selbst. Daher ist es angebracht, statt der Koordinaten selbst diese Differenzen 
als die Stammfunktion der Integration aufzufassen und aufzuaddieren. Insbesondere wird am Schluß des 
Anfangsverfahrens von der unmittelbar berechneten Differenz zweier Koordinaten ausgegangen und wird 
diese nicht erst aus den bereits gebildeten Koordinaten berechnet. Durch dieses Verfahren ist ein Verlust an 
Genauigkeit auch bei sehr kleiner Schrittweite ausgeschlossen. 

Bei einer Änderung der Schrittweite ist es im Allgemeinen notwendig, möglichst genau die Geschwindig- 
keiten zu berechnen und damit das Anfangsverfahren mit der neuen Schrittweite durchzuführen. Bei einer 
Umkehr der Integrationsrichtung geht man dagegen wie folgt vor. Aus dem Diffcrcnzcnvcktor wird durch 
Aufaddieren von hinten das Diffcrcnzcnschema und damit der Diffcrcnzcnvcktor für die neue Integrations- 
richtung gebildet. Aus dem alten und neuen Diffcrcnzcnvcktor berechnet sich unter Verwendung der beiden 
je nach Integrationsgrad letzten der Gl. 2.29 die Differenz (xi — xz_i) — (x-i — .t_; + i). 

Die Differenzen sind einfache Lincarkombinationcn der Beschleunigungen, sodaß man sie leicht durch 
Letztere ersetzen kann 18 . Dies hat den Vorteil, daß man sich den äußerst geringen Zeitaufwandt für das 
Bilden des neuen Differenzenvektors einspart. Man erhält jedoch das Ergebnis als kleine Differenz sehr 
großer Zahlen, was die Rechengenauigkeit erheblich vermindert. Außerdem kann man nicht mehr auf einen 
höheren Grad bei der Integration durch einfache Mitnahme von mehr Tcrmcn in den obigen Intcgrationsfor- 
mcln übergehen, vielmehr ändern sich die Koeffizienten völlig. Daher wurde nach zeitweiliger Verwendung 
wieder von derartigen Intcgrationsformcln abgegangen. Demgegenüber kann man im Anfangsvcrfahrcn die 
Beschleunigungen statt ihrer Differenzen verwenden 19 . 

Anmerkungen zur Anwendung derartiger Integrationsformeln auf vorliegende Problemstellung siehe J .SchlwCLTt. 
P.StU'fll'pJJ, Über ein N-Körper- Programm hoher Genauigkeit für Ephemer idenrechnungen an Planetoiden und 
Kometen. Heidelberg 1965. 

18 C.J.Cohen,C.Oesterwinter,E.C.Hubbard, Astron. Papers 22 P t.i(i973),20ff 

die Koeffizienten für das Anfangs verfahren und die Integration siehe auch J.SchubartP.Stumpff. löC Clt. Tab. I-IV 
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2.4. Die Abhängigkeit der Bewegung von den Anfangswerten 

Um verbesserte Werte für die Initialwcrtc und sonstige Parameter, durch welche die Bewegung eines 
Objektes beschrieben ist, zu erhalten, ist es erforderlich, die Auswirkung einer Variation dieser Größen auf 
die beobachtete Bewegung zu berechnen (s. §2.6). Ein zentrales Tcilproblcm dabei ist, die Änderungen 
der integrierten Koordinaten in Abhängigkeit von solchen der Parameter, also gewissermaßen die zeitliche 
Fortpflanzung von Fehlern in den Anfangs werten, zu untersuchen. 

Verwendet man die klassischen Bahnclcmcntc als Parameter, kann man diese Werte analytisch berech- 
nen, indem man etwa die in §2.2 gegebenen klassischen Formeln der Ephcmcridcnrechnung durchdifferenziert 
und so die d(x,y,z)/d(E) für die je nach Bahnform sinnvollen Elemente E erhält. Einige Nachteile dieser 
Methode, wie die Singularität der Elemente bei einer Bahnexzentrizität nahe oder 1, lassen sich behe- 
ben 20 , und Methoden dieser Art wurden bis zur Mitte dieses Jahrhunderts nahezu ausschließlich verwendet. 
Als Nachteil bleibt jedoch, daß die Differenzen der Planet enstörungen bei der Variation der Elemente nicht 
berücksichtigt werden, weil dieselben bei der Berechnung der Diffcrcntialquoticntcn nicht auftreten. Daher 
versagen die klassischen Methoden kläglich, wenn das Objekt bedeutsame Störungen durch Planeten erfahren 
hat 21 , oder auch allgemein, wenn eine große Zahl zusätzlicher Parameter zu berücksichtigen ist. 

Ebenso führt es zu meist unbrauchbaren Resultaten, wenn man die Ableitungen durch numerische Va- 
riation der Unbekannten und Subtraktion der damit erhaltenen Intcgrationscrgcbnissc berechnet. Wegen der 
Änderungen zweiten Grades einerseits und der Rundungsfchler andererseits muß man die Variation etwa mit 
der halben Stellenzahl der Rechnung durchführen und erhält höchstens die halbe Stellcnzahl genaue Ergeb- 
nisse. Häufig sind die Gleichungssysteme zur Bestimmung der Unbekannten ohnehin schlecht determiniert 
und werden dann bei verminderter Stellcnzahl völlig unbrauchbar. 

Wesentlich besser ist es, die Fortpflanzung von Änderungen der Parameter direkt unter Anwendung der 
Bcwcgungsglcichungcn zu berechnen. Hierfür haben sich die meisten Bearbeiter von Bahnverbesserungen 
eigene Verfahren ausgearbeitet 22 . Einige dieser Verfahren sind unnötig kompliziert. Der Verfasser hat 
speziell für die Berechnung der nicht gravitati von Kräfte ein Verfahren ausgearbeitet, welches sich selbst in 
Ausnahmefällen durch sehr gute Konvergenz auszeichnet 23 . 

Es seien X — (x ,x ) die sechs Initialwcrtc. P die u sonstigen Parameter, von denen die Bewegung des 
Himmelskörpers abhängt, und x seine Koordinaten. In den Bcwcgungsglcichungcn treten Ort. Geschwindig- 
keit und die Parameter auf. Ihre Variation resultiert in einer Variation der Beschleunigung 

*ä=f*x + ^«+fj> . 2.31 

ox ox aF 



Gesucht ist die dadurch bedingte Änderung der Position nach längerer Zeit 

öx <9x 

öx äx+ öp 



«5x = ^«5X + ^<5P 2.32 



Eingesetzt in die vorige Gleichung erhält man 

öx <_„ öx n „ öx / öx ,..„. öx ,. \ öx / öx p „ öx ,, \ öx ,.„ 
« ÄX+ OT 4P = s(«* X+ W ÄP ) + «(öX ÄX+ äP ÄP ) + äP* P 2 ' 33 



siehe dazu J '. Bauschinger.Uie Bahnbestimmung der Himmelskörper. 2. Aufl., Leipzig 1928. 440-469. 
siehe etwa G.Sitarski, Acta. Astron. 29(1979),413; G. Sckrutka,R. Dvorak, Mitt. Universitätssternw. Graz 80(1981), 
189 

siehe etwa: W.J.Eckert, D.BroUWer, Astron. Journal 46(1937), 128; D.K.Kulikov, Bull. Inst. Theoret. Astron. Lenin- 
grad 4(1950),330; P.Herget, Astron. Papers 16 Nr.3(1962),342; Astron. Journal 73(1968), 737; J.H.Lieske, A Dyna- 
mical Determination of the Solar Parallax from the Motion of (433) Eros. New Haven 1968. 61ff.; G.SiUirskl. 
Acta Astron. 21(1971), 87; P.M.Janiczec, Astron. Papers 21 pt.l (1971); G.Beutler, Astron.-geodat. Arbeiten i.d. 
Schweiz 34(1982), 145L; F.Hechler,T.AMor\ey, ESOC OAD Working Paper 221(1983), 7f. 
Die Sterne 59(1983),153 
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Da dies unabhängig von den zufälligen Variationen <5X. <5P gilt, haben wir 

<9x dx dx dx. <9x dx dx. dx dx. dx dx. 

äx = dx~öx + M&x un &p = dx~äp + Mop + &p 2 ' 3 

oder mit dem Vektor aller Unbekannten U — (X. p). mit G — t^j, sowie mit g — 1^ und g' — |^, 

G = gG + g'G + |^ . 2.35 

Der hintere Tcrm ist die explizite Änderung der Bcwcgungsglcichung durch die Unbekannten, die vorderen 
Tcrmc sind ihre impliziten Änderungen durch die seit der Epoche aufsummierten, infolge der Variation der 
Initialwcrtc entstandenen diffcrcnticllcn Störungen 24 . 

Dies sind die Zcitcntwicklungsglcichungcn für die gesuchten G(t). Man kann mithin ihren zeitlichen 
Verlauf genauso wie den der Koordinaten x(t) durch numerische Integration berechnen, wobei so wie dort 
zwcckmäßigkcitshalbcr die drei zu einer Unbekannten U\ gehörenden Komponenten G k ; k — 1,2.3 zu je 
einem zu integrierenden Objekt mit drei Koordinaten zusammengefaßt werden. 

Nach Darlegung des Prinzipcs seien in Hinblick auf den praktischen Gebrauch die Gleichungen noch 
einmal in Komponcntcnschrcibwcisc wiederholt: 

3 
Sx k = J2(gfdx l + g'i k 6x l ) ; k = 1, 2, 3; 2.31' 

(=i 

6+u 

Sx k = J2 G n sun ; k = 1,2,3 2.32' 



also 



G k n = -^— + Y^{9 l tG l n +g' l k G l n ) ; k = 1,2,3; n= 1..6 + U 2.35' 



Für die Epoche i , für welche Ort und Geschwindigkeit x,x als Initialwcrtc X genommen werden, sind 
ihre Variationen einander gleich, gilt also 5x k (t ) = SX k (k - 1,2,3), Sx k+3 {t ) = SX k {k - 1,2,3), und 
sind die Variationen von Ort und Geschwindigkeit unabhängig von denen der sonstigen Parameter P. Unter 
Anwendung von Gl. 2.32 und deren zeitlichen Ableitung sowie unter Rücksicht auf unsere Dcünition von U 
ergeben sich damit die Initialwcrtc für die Integration der G zu G k (t ) — S^j ; G k (t ) — Skj-z für k — 1, 2,3 
und / — 1..6 + u. 

Nun müssen noch die g,g' durch totales Differenzieren der Bcwegungsglcichungcn nach Ort, Geschwin- 
digkeit und den Parametern bestimmt werden. Die relativistischen Tcrmc von in der Regel unter 1" brauchen 
dabei nicht variiert zu werden. 

Bei den nichtgravitativen Beschleunigungen lassen wir eine Summe mehrerer Funktionen zu. Außerdem 
separieren wir den explizit zeitabhängigen (etwa säkularen) Anteil b(t, P) von dem distanzabhängigen f{r, P), 
zu den darin auftretenden Parametern P kommen noch die Vorfaktoren A als die üblichen nichtgravitativen 
Parameter hinzu. Wir haben dann 

/■j-k n / yk — yk yk \ 

Sf = -(0 + W )-f +£W J-L- -f )+Ax k 2.36 

' U j= - 2 \ ' ji 'lj/ 



In der früheren Veröffentlichung wurde statt X als abstrakter Ortsvektor (X.P) verwendet. Dies hat den Vorteil einer 
formal einfacheren Schreibweise, insbesondere ist dann OX/Or in g enthalten. Die dadurch bedingten zusätzlichen 
Elemente in g und G sind jedoch oder 1 und brauchen bei der Integration von G nicht berücksichtigt werden, sodaß 
hier in Anlehnung an den praktischen Gebrauch die vorliegende Schreibweise gewählt wurde. 

2(i 



mit 

Ax k = «i E A i 6 i(*< P )A r (»-, P) + 4 E A ^(*> p )^(r, P) + 4 J2 AW(t, P)/ S »(r, P) . 2.37 

r t n 

ai,a2 und a3 sind der radiale, transversale und normale Einheitsvektor am Kometen. Die betreffenden 
Summationsindizcs r, t und n sind symbolisch und nicht als Laufindex zu verstehen, da in der praktischen 
Anwendung die Summanden unterschiedliche Funktionen sind und explizit ausgeschrieben werden. Fortan 
gelte für des betrachtete Objekt x — x i: r — r H , damit ist 



a\ = — ; a\ = -{r 2 x k - r'x k ) ; a\ = - V Y] xVe^ 

r rv rv * — ' * — ' 



2.3* 



mit 

3 3 

v — 2_, x x i r ' — r ' v — /_, x x i a — ryr 2 v 2 — r' 2 2.39 

z=i 1=1 

Differenzieren ergibt dann 

SAx k =a k J2 AWitfUr) + 4 E A 2 6<<5/|(r) + a| E ^3 Ws"« 

r t n 

r £ n 

+ E «i/r^i^i + E «J/^M + E 4fSb¥ A s 

r t n 

+E«i A i/r a i(*>p) +E a 24/Ä(* ; p) + E a S^/3 n a?(*.p) 

r t n 

Darin ist 25 

tfo} = i&r* - ^ JV&r 1 2.41 

2 = 1 
3 

5r' = J](i'(Jx' + ^a;') 2.42 

/ -i 

3 3 3 

Ja 2 = 2a5a = (2rV - r /2 ) • 2^ x 1 5x<) + r 4 ■ 2^ x l dx 1 } - 2r 2 r'^{x l 5x l + x l 5x l ) 2.43 

2 = 1 Z=l 1=1 

Sa L 2 = - Ef \2± k x' - x k x' - ^{(2rV - r' 2 )x' - r 2 r'x'} - r'S kl ]Sx' 
a ^— ' VL a J 

i=i 

+ [-xV - °%{r 4 x l - r 2 r'x 1 } + r 2 4z] <Sx<) 2.44 

und 

fc * = ^r^E([E^] fa, + [E^«] fö + (tE^^>^rpf 

V ' L ' 1=1 1=1 1=1 !=lj = I V' '- 1 

= E ( [^4W*' - ■" 2 A + r - E * i£ «] fa ' + [^{>-v - r 2 .*'} + ^ e * <£ «<] **') 2 - 45 



Ofc/ ist das Deltasymbol 
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ferner 

df h (r) df h (r) 3 

<5/?(r) = -^±lsr= -^-^ J^x'Sx 1 mit j = 1,2,3; h = r,sA 2.46 

j dr rar ^^ 

und 

p db h (t pi 

(56? (tP) = V" <5P; mit j = 1,2,3; h = r,s,t 2.47 

(=1 ' 

wobei man in der Praxis natürlich nur über die in den b enthaltenen Parametern B summieren muß. 
Die Variation des vorderen Teiles der Bcwcgungsglcichung ergibt unter Anwendung von 



5— = 2_^ x l Sx l + -3- 



dann 



^t^^-^t ^-^-^ -^]}^^ 2.48 

Setzt man darin Gl. 2.40 bis 2.47 ein und ordnet die Tcrme als Vorfaktoren der x,x und P. lesen sich 
anhand Gl. 2.31 die g und g' ab zu 

k ^ .\3x'x" S lk ] ^ pQr'-^X**-^) S lk 



+ - f 2xV - x k x> + °^{r 2 r'x' - (2rV - r' 2 )x'} - r'S k! ) ■ fe ^ä) 2.49 



-4 V'x' - v 2 x>] + -J2 i'eui ) • £ ^atf&s 



^":,l. 



-<e^S«) + <e^£«Hö>"S« 



und 



«'«= =i [-*V + |(rVz< - rV) + r 2 fe] ( £ ^^) 

+ ^(rV - r 2 ±<) + -^ £ i'e*«] ( £ AJ/ 3 "öjJ 2.50 

(jeweils für & — 1,2.3;/ — 1,2,3) sowie die expliziten Ableitungen der Bcwcgungsglcichungcn nach den 
Parametern zu 



für die Parameter .A' 1 



ßr k db h 



2S 



für die in den b vorkommenden Parameter P[. und 



f)T k df h 



für die in den Kräfte verlaufen f vorkommenden Parameter. 

Die Ableitungen der f^ und der b^ hängen von deren expliziten Form ab. 
a) Stil 1. 



Hier haben wir 



also 



b) Stil 2. 

Hier ist 



In f — — — — alnr 1.2' 

o 2t v 

-df = _(- + _) dr - Inrda + — dC 2.54 

/ r C C 2 



In/' — Ina — m(mr — lnr Q ) — fcaddln[— n(lnr — lnr )] 1.4' 

mit addln(x') — ln(l + e~ x ) . daddln(.x) — —(1 — 1/[1 + e~ x ]) dx, also 

-df = - (m + nfc{l - 1/[1 + {^) n ]})\dr 
+ (m + nfe{l-l/[l + (-)"]})- dr 

n> n> 

- fcln(— )(1 - 1/[1 + ( — )"']) rfn 2.55 
-ln(l-l/[l + (— ) n ])dk 

T 

— Inf — ) dm 
+ (I/o) da 

Dabei betreffen die Koeffizienten von dr die letzten Tcrmc der g in Gl. 2.49, während die restlichen die 
df^/dPi in Gl. 2.53 darstellen. 

Für die Zeitabhängigkeit wird, solange keine besseren Kenntnisse vorhanden sind, in Anlehnung an die 
Arbeiten von B.G.Marsden und Z.Sekanina (s. §1) der Ansatz b(t, B) — e~ Bt oder b(t, B) — 1 — Bt mit B als 
Parameter gemacht. Entsprechend ist dann db(t, B)/dB — —B ■ b(t. B) bzw. db(t, B)jdB — —B. Falls sich 
für einen Kräfteanteil das zugehörige b als verhältnismäßig groß erweist, so daß über den Zeitraum hinweg, 
aus dem die Parameter zu bestimmen sind, b(t, B) erheblich von 1 abweicht, oder falls das betreffende A 
sehr klein ist, ist es geboten, in Gl. 2.37 ff. diese Veränderung nicht mit A ■ b(t, P), sondern etwa mit 
A + t-A'(P) zu beschreiben, damit keine Produkte von zu bestimmenden Parametern auftreten, was zu 
erheblichen Schwierigkeiten bei ihrer Berechnung führen kann. 

Der tatsächliche Verlauf fj der nicht gravitativen Kräfte ließe sich erschließen, indem man für die fHr) 
geeignete, zueinander orthogonale Funktionen - etwa die reziproken Potenzen - annimmt und durch Bestim- 
men der Koeffizienten A^ als Parameter ihre 'spektrale Verteilung' erhält. Dies ist in der Praxis mangels 
ausreichender Beobachtungen nicht möglich. 

Stattdessen sollten hier zu einem vorgegebenen Verlauf die Parameter A^ für m verschiedene Intervalle 
[r]j der Bahn bestimmt werden. Wir haben dann 

AJ'H,. = aUitifi + 4Ai4ß + 4A{V 3 f 3 

= a\ J2 A[b[ (t, P)/< (r, P)S ß + a L 2 f^ A 2 b' 2 (t, P)/< (r, P)^, + a\ £ A l 3 b l 3 (t, P)/|(r, P)S jt 2.56 

;=i (=1 1=1 
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Aus dem Vergleich mit Gl. 2.37 folgt daher, daß die betreffenden g. g', df!f jdP aus den Gl. 2.49 ff. folgen, 
wenn die dortigen r,t,n und h durch den Index j des Bahnstückes ersetzt werden. 

2.5. Der Vergleich einer Theorie mit Beobachtungen 

Aufschluß über die Bewegung der Himmelskörper erhalten wir durch ihre Beobachtung. Für eine quanti- 
tative Erfassung und Entwicklung oder Verbesserung einer Bewcgungsthcoric sind Messungen nötig. Im Falle 
einer relativistischen Umgebung ist eine besonders genaue Spezifizierung der Obscrvablcn und Rückführung 
derselben auf die Modcllparamctcr notwendig. 

Die Verbindung zwischen den zur Beschreibung der Bewegung verwendeten Größen x und den Ob- 
scrvablcn besteht im Wesentlichen erstens in der Bewegung des Lichtes zum Beobachter, zweitens im zu 
ermittelnden Ort des Beobachters xg, und drittens in der Verknüpfung des von ihm verwendeten Koordina- 
tensystemes zu dem globalen. 

Beobachtet wird die Richtung, in welcher das Objekt für den Beobachter sichtbar ist. Dies ist die 
Richtung, aus dem das Licht nach dem Prinzip der kleinsten Wirkung 26 vom Objekt zum Beobachter gelangt 
ist. Gemessen werden zwei Winkel a,S in einem beim Beobachter mittransportierten Minkowski- System, 
die mit den Koordinatendifferenzen A zusammenhängen gemäß 

' A cos 6 cos a \ 
A cos 8 sin a I 2.57 

A sin 5 j 

Differenziert man total und löst nach den Differentialen auf der rechten Seite auf, erhält man 

dA \ / cos a cos 5 sin a cos S sin S \ 
A cos S da — I — sina cosa dA 2.58 

A dö J \ — cos ol sin 5 — sin a sin <5 cos S J 

Die (9(A, a, <5)/(9x werden für die Bahn Verbesserung gebraucht (siehe §2.8.2). In Hinblick auf die nächsten 
Abschnitte sei angemerkt, daß hierbei mit ausreichender Genauigkeit dA — d(x — Xß) — d,x. — dx.ß gesetzt 
werden kann, wobei vorliegend die Bahn der Erde nicht verbessert werden soll, also die Variationen der 
Position des Beobachters Xß wegfallen. 

2. 5. f. Die Aberration 

Um aus vorgegebenem Ort und Geschwindigkeit von Beobachter und Objekt die Richtung a,6 zu bestim- 
men, unter der das Licht eintrifft, muß bei genauer Rechnung die Bcwcgungsglcichung des Lichtes integriert 
werden. Das Ergebnis kann man schreiben als: 

A = (x- x B ) (x - x ß ) ... 2.59 

c 

Mit A ist jetzt der wenn auch aus dem lokalen Minkowski-Raum hinausführende Weg vom Objekt zum 
Beobachter bezeichnet, welcher bei Planeten mit Radioteleskopen gemessen und ebenfalls verwendet werden 
kann. 

Der erste Tcrm, die formale Differenz der Koordinaten, ist das klassische Ergebnis für c — > oc. 

Die durch den zweiten Tcrm erzeugte Änderung in A,a,<5 ist offensichtlich unabhängig von der Entfer- 
nung des Objektes, da diese als Vorfaktor in allen Tcrmcn enthalten ist. Sic hängt nur vom Verhältnis der 
Rclativgcschwindigkcit zur Lichtgeschwindigkeit ab. Es handelt sich um die Aberration. 

Die weiteren Glieder hängen zusätzlich von der Raumstruktur ab. Hauptsächlich tritt eine Verringerung 
in der beobachteten Elongation zur Sonne auf 27 . Für die vorliegenden Untersuchungen ist dies aber ohne 
Bedeutung. 

26 die daraus folgende Bewegungsgleichung für das Licht siehe etwa V.A.Brumberg,PTOc.lAV Symp. 109(1984), 25f.ll4 
(1985),7 

27 siehe V.A.Brumberg,Astro.Zh.58(1981),190; dort sind auch alle Terme für die Korrektur von A gegeben, sowie USNO 
Circ,163(1981),A7 
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Die oben berechnete bcobachtcrbczogcnc Position A bezeichnet man als den scheinbaren Ort, die klassi- 
sche Koordinatendifferenz als den wahren. Die Aberration kann man aufteilen in den von der Bewegung der 
Erde bzw. des Objektes herrührenden Anteil. Den nur um die Bewegung der Erde (Fixsternaberration) kor- 
rigierten scheinbaren nennt man den astrometrischen Ort. Er wird statt des wahren verwendet für diejenigen 
Objekte, bei denen man nur den jahreszeitlich wechselnden Geschwindigkeit svektor der Erde berücksichtigt, 
weil der des Objektes unbekannt oder konstant ist, also etwa bei den Sternen. 

Die Beobachtungen sind also: 

scheinbarer Ort : A s (i) = x(t) -x E (t) - — (x - x E ) ra x(t ) - x E (t ) 

c c c 

astrometrischer Ort : A a (£) — x(t) — Xß(() — — x pö x(t ) — Xß(t) 2.60 

c c 

wahrer Ort : A w (t) = x(t) - x E (t) 

Für den praktischen Gebrauch drückt man die Fixsternaberration als Korrektur der wahren A,a,S aus. 
Wir wollen uns auf a und <5 beschränken und die Rechnung nur andeuten. Differenziert man A total, 
erhält man nach der Invertierung d(a,6)/dx. Hier ist dx — A a _ s A — -x^. Darin drückt man analog 
die Erdgeschwindigkeit dxß durch die zeitlichen Ableitungen von heliozentrischer Länge und Distanz der 
Erde d(L,R) aus, die man aus den Kcplcrschcn Gesetzen als Funktion der Erdlängc und der Länge des 
Erdpcrihclcs T ?a 282° erhält. Die so berechneten x# sind auf das Ekliptikalsystem bezogen und müssen 
durch eine Rotation um die x- Achse um den Betrag der Schiefe der Ekliptik e auf das Äquator System bezogen 
werden, falls sich die Bcobachtungsgrößen a,S auf dieses beziehen. Man erhält dann 

AacosS — — 20"47(sinasinL + cos a cos e cos L) 

— 0"343(sinasinr + cos a cos e cos T) + ... 

2.61 

A<5 — 20" 47[(sin a sin S cos e — cos S sin s) cos L — cos a sin S sin L] 

+ 0" 343 [(sin a sin S cos e — cos <5 sin e) cos T — cos a sin 5 sin r] + ... 

Der jeweils erste Tcrm entspricht einer gleichförmigen Erdgeschwindigkeit (jährliche Aberration), der zweite 
entsteht durch die jahreszeitlich wechselnde Geschwindigkeit der Erdbahn (elliptische Aberration) und ist 
deren Haupttcrm. Hinzu kommen noch weitere Tcrme durch die Elliptizität der Bahn und durch die Planctcn- 
und Mondstörungen der Erdbewegung 28 . 

Aus Bcqucmlichkcitsgründcn wurden bis etwa zur heutigen Zeit astrometrische Ortcr nicht um den 
Haupttcrm der elliptischen Aberration korrigiert, der im Gegensatz zu allen anderen Tcrmcn für die gleiche 
Himmelsgegend zeitlich praktisch konstant ist. 

Ferner ist der durch die Erdrotation bedingte Anteil der Fixsternaberration, die tägliche Aberration, 
generell (auch bei scheinbaren Ortern) bereits vom Beobachter angebracht, und daher hier ohne Belang, 
weshalb oben stillschweigend xb durch xe ersetzt wurde. 

Von den Kometen werden heutzutage fast ausnahmslos astrometrische Ortcr angegeben, die durch Aus- 
messung der relativen Position des Kometen zu Sternen aus photographischen Aufnahmen erhalten wurden, 
und bei denen daher entsprechend bereits die Aberration infolge der Erdbewegung berücksichtigt ist. Anzu- 
bringen ist nur noch der Haupttcrm der elliptischen Aberration. 

In der alteren Literatur sind häufig scheinbare Ortcr veröffentlicht. Sic sind daher entweder explizit um 
die Fixsternaberration zu korrigieren und anschließend wie astrometrische Ortcr zu behandeln, oder für die 
um A/c vergrößerte Zeit als wahre Ortcr zu nehmen. 



ausführlicher zur Theorie und Anwendung der Aberration F. W.Bessel, Abhandlungen . . . (Hrsg. R. Engelmann). 
Bd.l, Leipzig 1875. 291-316; T. V.Oppolzer. Lehrbuch zur Bahnbestimmung der Kometen und Planeten. Bd. 1, 
Leipzig 1882. HÜff 
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2.5.2. Die Position des Beobachters 

Die Bewegung des Beobachters kann man sich zusammengesetzt denken aus der Bewegung des Bary- 
zentrums um die Sonne, der Bewegung der Erde um das Baryzcntrum, sowie der Rotation der Erde mit dem 
Beobachter. 

Die Position des Baryzcntrums ergibt sich durch Interpolation aus der integrierten Bcwegungungsglci- 
chung. 

2.5.2.1. Die Rclativposition des Baryzcntrums gegenüber der Erdmitte 

Sic ergibt sich aus der Definition des Baryzcntrums (s. §2.1.1.3.) unmittelbar dahingehend, daß die 
Koordinatendifferenz des Mondes gegenüber der Erde zu berechnen und im reziproken Verhältnis der Massen 
aufzuteilen ist. Mit den Argumenten 29 T 1 = t~ 2415020.0, 

M M = 296, 104608 +13, 0649924465 7\ +6, 889 ■ 10" 12 T? (mittl. Anomalie des Mondes) 

M E = 358,475833 +0, 9856002670 Ti (mittl. Anomalie der Erde) 

u = 11, 250889 +13, 2293504490 7\ -2, 407 ■ 10 _:l2 T 2 (Argument der Mondbreite) 

D = 350,737486 +12, 1907491914 T± -1,076 ■ 10 _:l2 T 2 (mittl. Elongation Mond-Sonne) 2.62 

L = 279,696678 +0, 9856473354 Ti +0,227- 10" 12 T? (mittl. Länge der Sonne) 

V = 342,767053 +1, 6021687039 T x (mittl. Länge der Venus) 
berechnet man als Gleichungen in Länge, Breite und Parallaxe des Mondes 30 

AA = -ll'l sinM E + 377'3sinM M + 39'5sin2D + 76'4sin(2D - M M ) + 12'8sin2M M 
Aß = 308'64sin(u + AA) - 8'8sin(u - AA - 2D) 2.63 

An = 186"6cos M M + 28" 3 cos 2D + 34 !, 3cos(2D - M M ) + 10"2cos2Af M 
und daraus mit u' — u + AA 

A = L + D + AI - 7'Gsm2u' + Q'2sm{M M + 16L - 18V + 2 r 8) - 0'3 sin(8V - 13L) + O'lsinfA - u) 
ß= A/? + 0'03cosA-0'16sinA 2.64 

TT - 3422"7 + Att 

r = 0.1068585/7r 
Nach Anbringen der Präzession erhält man die Koordinaten des Baryzcntrums, die noch in das Aquatorsys- 
tem zu transformieren sind. 

2.5.2.2. Die Position des Beobachters relativ zur Erdmittc 

Der Beobachter nimmt an allen Rotationsbewegungen des Erdkörpers teil (tägliche Rotation, Gang- und 
Rastpolkcgcl infolge Figur, Präzession und Nutation infolge Störungen durch die anderen Himmelskörper, 
Kontinental vor Schiebung infolge Vorgänge im Erdmantcl usw). Diese sind sehr kompliziert 31 . Vorliegend 
braucht nur die tägliche Rotation, die Präzession und die Nutation zu berücksichtigt werden. 

a) Die Erdrotation. Sic findet um die gegenwärtige Lage der Rotationsachse der Erde statt, und definiert 
das momentane Koordinatensystem. Die darauf bezogene Deklination des Beobachters entspricht seiner 
geozentrischen Breite </>'. Die Rcktaszcnsion bezeichnet man als die Ortssternzeit 9, sie ergibt sich aus der 
Rektaszcnsion zu einem Ausgangszeitpunkt und der Winkelgeschwindigkeit der Erdrotation. Es gilt 

Q = $ -[0.7769194 + 100.0021359 ■ T + 1.075 • 10 -6 • T 2 + mod(t,l)] '360° 
5 = 4>' - 0-692"743sin(20) - l,163sin(40) ... 2.65 

A = p = {0,998327 + 0, 001676 cos(20) ...)■ 0.00004264 



Explanatory Supplement to The Astronomical Ehpemeris and The American Ephemeris and Kautical Almanac. 

London 1961. [fortan S.A. E.] 98,107,113 

Bei den Rechnungen wurden 34 Terme in Länge und Parallaxe sowie 24 Terme in Breite nach der Theorie von 

C.E.Delaunay, Ann.Bur.des Longit. 7(1911), 27ff berücksichtigt , siehe auch J. H . LieskeJoc.Clt. 51f. 

Zur Theorie der Bewegungen und Einzelheiten der Anwendung siehe etwa F. W.Bessel, loc.cit. 262-316; T. V. Oppol 

zer, loc.cit. 124ff; S.Newcomb, Astron. Papers 8 pt. 1 (1897); E.W.Woolard, Astron. Papers 15 pt. 1 (1953); 

J.H.Lieske,T. Lederle, W,Fricke,B.Morando, Astron. Astrophys. 58(1977), l; P.K. Seidelmann, Cel.Mech. 27 

(1982),79ff.; USNO-Circ. 167(1983); H.Zhang,T.-Y.Huang,B.-X.Yu, Astron.Astrophys. 189(1988), 292 
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äzession : Aa 


Ad 


Mutation : Aa 


Ad 



mit T=(t- 2415020)/36525. 

Dabei sind <j),<f)',p für viele Sternwarten aus astronomischen Jahrbüchern entnehmbar' 52 . 

b) Präzession und Nutation. Verlagerung der Erdachse im Raum infolge der diffcrcnticllcn Störungen 
anderer Himmelskörper auf die nicht sphärische Erde. Hier gilt: 

: (46"10 + 20' , 04tan6'sina')Ai 

: 20" 04 cos ol At 

2.66 
■ — 15" 4 sin H — (6" 7 sin sin a + 9"0cosOcosa) tan 6 

- —6" 7 sin Q cos ot + 9" cos Q sin a 

mit 

H - 259, 183275 -0,0529539222 7i +1, 557 ■ 10" 12 T? (mittl. Länge des Mondknotens) 
und Ti = * - 2415020.0. 

Dabei ist A im Sinne Beobachtungszeit minus Epoche und die Zeit in Jahren anzusetzen: 6' und a' sind die 
Koordinaten zur mittleren Zeit dazwischen. 

Aus den so berechneten, auf die Epoche des globalen Bczugssystcmcs bezogenen a,S,A des Beobachters 
relativ zur Erdmittc berechnen sich die rechtwinkligen Koordinatcndiffcrcnzcn nach den Gl. 2.57 . 

2.5.3. Die Ausrichtung des lokalen Bczugssystcmcs gegenüber dem globalen 

Ein besonderes Problem, welches auch heutzutage noch nicht befriedigend gelöst ist. ist der Anschluß 
des lokalen Bczugssystcmcs des Beobachters an das globale. 

a) Das Bezugssystem des Beobachters nimmt an der Erdrotation teil und wird mit der Erde um die 
Sonne transportiert. In die Umrcchmmgsformcln gehen daher alle Unsicherheiten in die Bestimmung dieser 
Bewegungen ein, was dazu führt, daß sich die Ergebnisse noch nicht auf das gewünschte Ruhesystem beziehen, 
sondern auf ein langsam dazu rotierendes. Auch wenn die Positionen der Klcinkörpcr im Sonnensystem in 
der heutigen Praxis nicht mehr durch Absolutmessung und Anwendung der Umrcchmmgsformcln berechnet 
werden, sondern durch Rclativmcssung zu bereits umgerechneten Richtungen (Stcrnörtcrn), sind Letztere 
und damit auch die erhaltenen Beobachtungen von den Fehlern betroffen. 

Gesucht ist ein ruhendes Bezugssystem in dem Sinne, daß darin die Bewegung von Objekten durch 
Gleichungen der Art 2.9 oder 2.11 beschrieben werden kann. Mithin besteht die Verifizierung darin' 13 , daß 
man Objekte im ad hoc verwendeten Beobachtungssystem (Fundamentalsystem) beobachtet. Rotiert es, sind 
für die Beschreibung der Bewegung in ihm Coriolistcrmc notwendig. Dann kann man das Fundamentalsystem 
dahingehend ändern, daß diese wegfallen und die Gl. 2.9 oder 2.11 gelten. 

Diese Vorgchcnswcisc ist sehr konstruktiv und das Ergebnis hängt dabei nicht davon ab, wie genau das 
Ausgangssystem war und wie es erhalten wurde; man ist nur von Beobachtungen in ihm abhängig. Deshalb 
braucht darauf hier auch nur andeutungsweise eingegangen zu werden. Bereits lange war die scheinbare 
tägliche Rotation des Sternhimmels bekannt; mit der Erkenntnis der rotierenden Erde, dem Ausdrücken 
der Plane tenbewegung im heliozentrischen Weltbild und der Entdeckung des Ncwtonschcn Gravitationsge- 
setzes war der Grundstein für die Verwendung eines lncrtialsystcm.es gelegt. Die Bcobachtungsinstrumcntc 
waren an die Erde gekoppelt, sodaß man aus der Beobachtung der Sterne 34 die verschiedenen Bewegungen 
des Erdkörpers quantitativ erhielt (s. §2.5.2) lir \ Daneben ergaben sich schon vor Entwicklung der Rela- 
tivitätstheorie die Aberrationseffekt c aus den Beobachtungen quantitativ richtig. Nach Anbringen dieser. 



Wegen weiteren Einzelheiten siehe etwa S.A.E. 57,72ff. 

Eine andere Möglichkeit besteht in der Verwendung von Objekten, die so weit entfernt sind, daß man hofft, daß sich 
selbst eine Rotation nicht mehr bemerkbar macht. Dazu wird das gewünschte Ruhesystem adaptiert. Diese Methode 
ist zwar heuristisch, aber für die Praxis zumindest vorläufig ausreichend. 

unter der Annahme als weit entfernte ruhende, allenfalls langsam systematisch rotierende Objekte 

Es ist zweckmäßig, die zahlreichen kleinen Terme dieser Bewegungen einer Theorie zu entnehmen und nur die Koeffizi- 
enten der größten Terme wie R.otatiousdauer der Erde und Präzessionskonstante aus den Beobachtungen zu ermitteln. 
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Abb. 2.1 



Lage und Bewegung des tatsächlichen und eines idealisierten Fundamentalsystemes 



E. Ekliptik, Ä Äquator. T dynamisches Äquinoktium, e Schiefe, x,y,z Achsen eines danach ausgerichteten 
idealisierten Systcmcs, a,8 Koordinaten eines Objektes K. A' ,T' \e' Katalogäquator, -äquinoktium und 
-schiefe, x',y',z' (nicht orthogonale) Achsen des Fundamentalsystemes, a' ,8' beobachtete Koordinaten des 
Objektes. E,D(a) Korrektur von Äquinoktium und Äquator. k,n,p,e inertialc Bewegung des idealisierten 
Systcmcs, entsprechende Größen ' auch für das Fundament alsystcm. 



bereits um einige von den Bcobachtungsumständcn abhängigen Effekte (Strahlenbrechung in der Erdatmo- 
sphäre, Instrumcntcnfchlcr usw.) korrigierten Absolutbeobachtungen ergaben sich in guter Näherung Positi- 
onswerte in einem Inert ialsystem. 

Eine Kontrolle war die Beobachtung der Planeten in diesen Systemen und der Vergleich mit der Theorie. 
Abgesehen von der später durch die Relativitätstheorie erklärten Pcrihcldrchung des Merkur traten keine 
nennenswerten Diskrepanzen auf. 

Die Überprüfung mittels der Bcwcgungsglcichungcn kann man sich beispielsweise wie folgt vorstellen' 16 . 
Die Richtung der Planeten wird fortlaufend beobachtet' 57 . Nach langem - bei ungefährer Kenntnis der Bahn- 
form bereits nach kurzem - Zeitraum folgt aus den Abständen der Oppositionen {synodische Umlaufszeit) 
die auf das verwendete Fundamcntalsystcm bezogene tatsächliche (siderische) Umlaufszcit des Planeten. 
Jeweils nach diesem Zeitabstand war der Planet räumlich an derselben Stelle, wurde aber von verschiedenen 
Stellen der Erdbahn aus angepeilt, woraus sich sein Ort im Raum ergibt. Ahnlich stellen die Beobach- 
tungen im Intervalle eines Jahres das Bcobachtungsmatcrial dar, aus dem ein Beobachter auf dem Planet 
die Bahn der Erde konstruieren würde. Iterativ 38 kann man daraus die Erd- und Planetenbahn im Räume 
konstruieren. Durch numerisches Differenzieren erhält man daraus die Beschleunigungen, die man mit den 
Bcwcgungsglcichungcn vergleichen kann. Alternativ kann man die Bedingungsglcichungcn der Beobachtun- 
gen (Gl. 2.58,2.81) sowohl nach den Planeten- als auch nach den Erdbahnclemcntcn sowie nach zusätzlichen 
Unbekannten wie einer Rotation des Koordinatcnsystcmcs aufstellen und auflösen 39 . 

Ein anderes Verfahren besteht im fortlaufenden Messen der Entfernung zu einem Planeten 40 . Daraus 
läßt sich unmittelbar die synodischc Umlaufszcit U ablesen 41 . Aus dem Vergleich mit der wie zuvor aus 
Beobachtungen im Fundamcntalsystcm erhaltenen synodischen Umlaufszeit U' ergibt sich die Winkelge- 
schwindigkeit desselben zu 1/U — 1/U' . 

b) Die Ausrichtung des Koordinatcnsystcmcs muß bekannt sein. Dies gilt in Bezug auf die Positionen 
anderer Himmelskörper, welche in die Rechnung eingehen, primär der Erde 42 , was auf die Bestimmung ihrer 
Initialwcrte im Fundamcntalsystcm hinausläuft. 

Aus historischen und bcobachtungstcchnischcn Gründen wählt man 43 die Ausrichtung derart, daß der 
Pol (z-Achsc) des Fundament alsystcmcs mit der Rotationsachse der Erde zu einer bestimmten Epoche 44 
zusammenfällt. Die jährliche Bewegung der Sonne um die Erde 45 schneidet den Äquator des Fundamcn- 
talsystemes unter einer bestimmten Bahnncigung e {Schiefe der Ekliptik) und der aufsteigende Knoten, 
das dynamische Äquinoktium, soll den Ausgangspunkt der Zählung von a, also die Richtung der rc- Achse, 
festlegen. 

Aus dem Vergleich von an die Erdrotation gebundenen Messungen der Deklination von Fixsternen in 
unterschiedlichen Himmelsgegenden mit. den Deklinationen im Fundamcntalsystcm wird sich ergeben, daß 
der Katalogäquator nicht genau parallel zum tatsächlichen Äquator ist. Außerdem ist die Knotcnlängc der 
Erdbahn im Fundamcntalsystcm bei einer Bahnbestimmung ungleich Null - die a;-Achsc des Fundament alsy- 

bei diesen Betrachtungen kann man sich Nebensächlichkeiten wie die Planetenstörungen als bekannt oder zumindestens 
iterativ bekannt werdend und berücksichtigt vorstellen 
Dies ist praktisch auch der Fall 

38 bereits von J.Kepler zur Konstruktion der Erd- und Marsbahn verwendet; s. etwa J.Frischauf loc.CÜ 125ff. 

39 s. etwa F.Schmeidler, Astron. Nachr. 284(1958),205; D.L.Duma, Bestimmung von Ursprung und Rotation der 
Sternkataloge. Kiew 1974. 82ff.; D.L.Duma, L.N.Kisjon,J.I.SafranoV, Verbesserung des FIQ-Systemes durch 
Meridianbeobachtungen von kleinen Planeten. Kiew 1980. 60f.; L.K.Kristensen, Mitt. Astron. Ges. 48(1980),50; 

W.Landgraf Astron.Astrophys. 191(1988), 165 
hierbei stelle man sich vereinfachend Kreisbahnen vor 

Aus dem Verhältnis der minimalen zur maximalen Entfernung folgt außerdem sofort das Verhältnis der großen Bahn- 
halbachsen für den Fall, daß keine relativistischen Effekte gegeben wären, welche die Lichtlaufzeit beeinflußen. Der 
Vergleich mit dem nach dem .'i.Keplcrschen Gesetz aus dem Verhältnis der l.'mlaufszeiten berechneten Wert ergibt die 
Große der relativistischen Effekte; s. auch S. Weinberg, 201f. 

Die Erdkoordinaten gehen durch Gl. 2.59 geometrisch und durch Gl. 2.13 dynamisch in die Nachrechnung der Beob- 
achtungswerte aus den Parametern ein. die Planc.te11koordi11aT.e11 nur durch die letzten Terme der Gl. 2.13 dynamisch. 
Diese Störungen sind jedoch klein. 

Festlegungen, die für die Definition, Verifizierung und Verwendung eines Inert ialsystemes überflüssig, für den Übergang 
zu den absolut gemessenen Positionen aber nützlich sind 
abzüglich der Nutation und anderer kurzperiodischer Einflüsse 
'' abzüglich der Störungen, Aberration usw. 



stcmcs definiert das Katalogäquinoktium - und wird das Ergebnis für die Bahnncigung von der angenommenen 
Schiefe geringfügig abweichen (siehe dazu Abb. 2.1). 

Die Bestimmung von Ausrichtung und Rotation des Fundament aisystemes aus Beobachtungen von ei- 
nem oder mehreren Pianctcn kann man nur im Zusammenhang durchführen. Man berechnet die Abieitung 
der Beobachtungsgrößen nach den fnitialwcrtcn der Objekte sowie nach den Rotationsparametern und be- 
stimmt diese aus den Beobachtungen. Entweder man geht anschließend zu einem neuen Fundamcntalsystcm 
über, welches wie beschrieben an Knotcnlängc, Neigung und parallel zum Erdäquator justiert ist, oder man 
verwendet das alte System weiter und berücksichtigt die Korrekturen bei der Ephcmcridcnrcchnung der 
Erde. 

In der Praxis hat man heutzutage sowohl Winkel durch die Astromctrie als auch Entfernungen durch 
Radarimpulse. Daraus ließ sich ein sehr genaues Modell der Bewegung der inneren Pianctcn erarbeiten 46 . 
Die Schiefe der Ekliptik erhält man entweder durch Beobachtungen der Sonne im Fundamcntalsystcm (dann 
Winkel Katalogäquator zu Ekliptik) oder durch Entfernungsmessung des Mondes per Laser (Winkel Äquator 
zu Ekliptik). Denn die Bewegung des Mondes ist im Wesentlichen an die Ekliptik gekoppelt, die des Be- 
obachters an die Erdrotation, sodaß der Winkel zwischen Erdachse und Ekliptik empfindlich in die Entfer- 
nungsmessungen eingeht. Im Übrigen nimmt man regelmäßig an, daß der Katalogäquator parallel - allenfalls 
parallelvcrschobcn - gegenüber dem Äquator der Erdrotation ist. 

c) Bedingt durch die Bcobachtungstechnikcn haben die Katalogpositionen der Sterne, und damit auch 
die erhaltenen Positionen beobachteter Pianctcn und Kometen, auch lokale Fehler. Diese kann man ebenfalls 
aus Beobachtungen im vorläufigen System bestimmen 47 . 

d) Zu erwähnen ist noch die Zeitmessung. Diese erfolgte früher implizit über die aus Gl. 2.65 berech- 
nete Weltzeit t, also über die Ausrichtung der Erde gegenüber dem Fundamcntalsystcm, und ist von der 
Unglcichmäßigkcit der Erdrotation betroffen. Seit etwa 1960 läßt sich jedoch die Eigenzeit der Erde sehr 
genau messen und man kann die Bewegung der Himmelskörper korrekt mit der Koordinatenzeit als Argu- 
ment angeben. Aus dem Vergleich mit früheren Beobachtungen, insbesondere des Mondes, folgt die den 
betreffenden Beobachtungen in Wcltzcit zugehörige Koordinatenzeit. 

Die Fehler durch die einzelnen in die Umrechnung der Absolutbcobachtungcn zu Positionen im Funda- 
mcntalsystcm eingehenden Effekte wie Präzession, Winkelgeschwindigkeit der Erde usw. kann man vonein- 
ander trennen, wenn sie in unterschiedlicher Weise in die Beobachtungen eingehen 48 , also bei Rotationen, 
wenn sie um unterschiedliche Achsen erfolgen. Addiert man die Korrekturen zu den betreffenden in den 
Transformat ionsformcln (§2.5.2.2.) a priori verwendeten Werten, erhält man diese verbessert. 

Auf die Problematik der Verbesserung des Fundament aisystemes und zur Bestimmung der Rotations- 
konstanten soll hier nicht weiter eingegangen werden 49 . 

Allgemein im Gebrauch für Positionen von Kometen ist gegenwärtig das FK4-Systcm 50 in Zusammen- 
hang mit den Präzessionskonstanten nach S.Newcomb 51 . Dafür sind die folgenden Korrekturen bekannt 
geworden: 

a) globale Korrektur 

Aa = 0"525 + (0"2358 - 0" 4377 sin a tan S) t 

2.67 
A<5= -0"4377cosa t 



46 G.A.Krasinsky,E. V.Pitjeva,M-L.Sveshnikov,E.S.Sveshnikova, Bull. Inst. Theor. Astron. 15(1982), 145; 
X.X.Newhall, E.M.Standish.J.G. Williams, Astron. Astrophys. 125(1983), 150 

im Sinne der dynamischen Definition des Systemes und bei Beschränkung auf Beobachtungen im vorläufigen System 
etwa aus den Restfchlern gut beobachteter Planeten für die einzelnen Himmelsgebiete direkt ablesbar 
Kriterium Korrelationskoeffizient, s. §2.8.1 

49 zur Geschichte siehe etwa F.Schmeidler, Mitt.Astron.Ges. 48(1980), 11; E. W. Woolard, loc.tit.; zu Durchführung 
und Ergebnissen F. Schmeidler, Astron. Nachr. 284(1958), 205; D.L.Duma, loc.cit.] V.l. Orelskaya, Mitt. Astron. 
Ges. 48,43; W.Fricke, Mitt. Ast. Recheninst. B79(1979), Mitt.Astron.Ges. 48,29, Gelest.Mech. 22(1980), 113, 
Astron. Astroph. 107(1982), L13 

50 W.Fricke,A.Kopß\ Verö.Astr.Rechen-Inst. 10(1963) 

51 loc.cit. 
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Tabelle 2.1 Lokale Korrekturen des FK^-Systemes 
S Aa 6 AS 6 S Aa s A<5 (5 S Aa 6 A5 S S Aa 6 A5 S 
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Die Tabelle enthält die lokalen Fehler des FK 4 -Systcmcs für die Epoehc 1970. Zu entnehmen sind die 
Korrekturen aus dem ersten Teil in Abhängigkeit der Deklination (in Grad) und aus dem zweiten Teil in 
Abhängigkeit von beiden Koordinaten (in Bogenmaß) und aufzuaddieren. Die Korrekturen der Rcktaszcnsion 
sind in Einheiten zu 0, 001 s gegeben, die der Deklination in 0"01. Wo keine Korrekturen angegeben sind, 
lagen die Werte nicht vor. 



mit t — (JD — 2433282, 423)/36525, der Zeit seit 1950 in julianischen Jahrhunderten. Dabei ist der konstante 
Tcrm bei Ao die Korrektur des Äquinoktiums, also die negative Knotcnlängc der Erdbahn, zur Epoche 1950. 
Die beiden Koeffizienten im zeitabhängigen Tcrm sind die Rotationsgeschwindigkeit des Fundament alsyste- 
mes in Richtung des Äquators bzw. der Ekliptik. Die dritte Rotationskomponente und eine Konstante bei 
AS fehlt, weil man den Systemäquator als korrekt annimmt. 



b) lokale Korrektur Bei den Berechnungen sind die in Tab. 2.1 zusammengestellten Korrekturen an- 
genommen wurden, die aus einer größeren Zahl von Sternkatalogen gebildet wurden. Sic gelten etwa für 
1970, wurden aber für sämtliche Zeiten angebracht, da lokale Korrekturen für die Eigenbewegung nicht zur 
Verfügung standen. 

In der Praxis verwendet man an den FK4 angeschlossene Sekundärkataloge, insbesondere den SAO- und 
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den AGK 3 - Katalog 52 , oft auch den Katalog Pcrth 70 ;jli . Die lokalen Differenzen dieser Kataloge zueinander 
und zum FK 4 sind geringer als die Genauigkeit, mit denen die Kometenpositionen veröffentlicht werden" 4 
und brauchten daher nicht berücksichtigt zu werden. 

c) Die Korrekturen Koordinatenzeit minus Welt zeit, wie sie sich aus einer neueren Theorie der Mond- 
bewegung ergaben, sind mit hier ausreichender Genauigkeit f 950, +29, 2s, 1990,0 +59, 0s (dazwischen in 
etwa gleichförmig zunehmend), sowie zu den letzten Pcrihcldurchgängcn des Hallcyschcn Kometen 1910,0 
+11, 0s und 1836,0 +4, As 55 . 

2.6. Die Initialwerte der Planeten 

Für die Berechnung der Position des Beobachters in Gl. 2.59 und für die Berücksichtigung der Störungs- 
terme in den Gl. 2.13 müssen für jeden Integrationsschritt des Kometen die Koordinaten der Planeten be- 
kannt sein. Ihre Bewegung ist, jedenfalls noch bei der vorliegend benötigten Genauigkeit, ebenfalls durch 
sechs Integrationskonstanten festgelegt. Wird ihre Bewegung Zweckmäßigkeit shalbcr durch numerische Inte- 
gration berechnet, so sind dies wieder die sechs rechtwinkligen Initialwerte x, x für einen beliebigen Zeitpunkt. 

Die Bahnbestimmung der Planeten erfolgt 56 genauso wie die der Kometen. Neben den optischen Be- 
obachtungen, bei denen die letzten zwei der Gl. 2.58,2.81 betroffen sind, liegen hier auch Messungen der 
Entfernungen und der Rclativgcschwindigkcitcn 57 zum Beobachter durch Radioteleskope vor, wobei die erste 
dieser Gl. nebst ihrer zeitlichen Ableitung zur Anwendung kommt. 

In der Praxis erfolgt zwar die Bahnbestimmung aller Planeten simultan aus den optischen und radio- 
metrischen Beobachtungen, man kann sie sich jedoch nach diesen getrennt durchgeführt vorstellen. Aus den 
radiometrischen Beobachtungen erhält man, wie in §2.5.3 plausibel gemacht, ein sehr genaues Modell der 
Bahnen der betreffenden Planeten zueinander, welches jedoch in seiner Gesamtheit noch gedreht werden 
kann. Der Vergleich mit den optischen Beobachtungen legt dann die Ausrichtung sowie eine gegenseitige 
Rotation beider Systeme zueinander fest (s. §2.5.2.1). Weil die Radioteleskope an der Erdrotation teilneh- 
men, folgt aus den Messungen auch die Lage des Erdäquators in Bezug auf das Modell der Bahnen, sodaß 
man dieses System prinzipiell auf sein dynamisches Äquinoktium und den Äquator beziehen könnte. In- 
folge der durch die Obern ächcnunrcgclmäßigkcitcn der Planeten bedingten Dispersion der Radiosignalc ist 
aber keine hohe Genauigkeit crziclbar 58 . Durch zusätzliche Entfernungsmessungen des Mondes per Laser, 
die von dieser Fehlerquelle nicht betroffen sind, wird jedoch die Neigung des Äquators zur Erdbahn sehr 
genau bekannt, über die in die Mondbewegung eingehenden Sonnenstörungen aber auch seine 'azimutale' 
Ausrichtung, also der Anschluß an das Radarsystem der Planeten. Dies kann nunmehr sehr genau auf das 
dynamische Äquinoktium als Schnittpunkt von Äquator und Erdbahnebene bezogen werden. Berechnet man 
diesen Schnittpunkt für zwei (oder mehr) Zeiten, so sollte er sich in Ruhe befinden; aus der Abweichung 
folgt die Rotation des Modcllcs zum Incrtialsystem wesentlich genauer als aus den Planeten alleinc 59 . 

Gegenwärtig liegen zwei unabhängige Theorien der inneren Planeten aus radiometrischen Messungen 
vor, und zwar die Ephcmcridcn DE118/119 6{) sowie die Theorie CRT-81 61 . Die Anzahl der zugrunde liegen- 
den Beobachtungen spricht eindeutig zugunsten der Letzteren 62 . Bei dieser Theorie wurden die Initialwerte 

[Smithsonean Astrophysical Observatory] Star Catalog. Hrsg.: F.Whipple. Washington 1966; AGK3 Star Catalogue 
of Positions and Proper Motions ... Hrsg.: W.Dieckvoß. Hamburg- Bergedorf 1975 
J * Abhandl. aus der Hamburger Sternw. 9(1976) 

54 siehe etwa C.SulHvan,A.N.Argue, Monthl. Not. Royal Astron. Soc. 193(1980),921; L.G.Taff,S.A.Stansfidd, 
Astron. Journ. 87(1982), 1884 

55 nach Mitteilung von P.K. Seidelmann, berechnet aus der Mondtheorie LE2000 

abgesehen von Einzelheiten wie der Korrektur der Beobachtungen wegen den Beleuchtungsphasen &". 
diese sind allerdings nur von geringem Wert 
' beim Erdradius als Basis entspricht eine Dispersion von 30/71 im Abstand einer Genauigkeit von 1 

aus diesem Grund ist weiterhin die Rückführung des Fundamentalsystemes auf Äquator und Äquinoktium notwen- 
dig; ebenso genauere Theorien über die Rotationsbewegungen der Erde, die festlegen, welche Anteile als periodisch 
abzuspalten und welche inertial in Ruhe sein sollten 

60 E.M.Standish u.a., loc.cit. 

61 G.A.Krasinsky u.a., loc.cit. 

' dort wurden alle Beobachtungen wie bei DE118/119 verwendet, zusätzlich noch zahlreiche russische Messungen 
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Tabelle 2.2 



liiit ' iahnerle der Planeten 



-,3963358353433 

, 383343726926 

, 1346930886527 

19,738176658817 

-,6749378480533 

12,514078126064 

-,8621135766366 

-11,344451488337 

-5,3093810270480 

1,633536014492 

8,2251791019524 

-2,886677052714 

7, 688264550004 

3,5884191169094 

-9, 867020856604 

-2,9811134336991 

-,3930070267883 

3,263747169618 

-,7188992360098 

-,063885545359 

-,0543679674747 

16, 898749404409 

, 1169888134928 
14,492587088609 
4,6852196572607 

2, 516944569072 
-3, 9715469394985 

4,821616426273 
-3,339559069535 
3, 8450792576707 

2, 044630340381 
3,1161717731809 



y 

-,0936304598561 

-23,111812239748 

-,6487160266976 

3, 804991607257 

-,6888967984523 

-10,605761417370 
1, 2572729586455 
-5,735109835022 

-1,1865774182419 

-6,420339891968 

4, 1018721709544 

4, 510432488985 

-16,527079376694 
1, 2564048083163 
26, 089537832441 
-,9702019353293 

-, 1326403392988 

-22,296521326976 

-,0183152631210 

-18,524133321940 

-,9309102929185 

-,900275376877 

-1,3071112184424 

2,257521641961 

-1,5451353299227 

6, 859072683643 

-8,5343958844289 

-1,981754603705 

-17,287389281487 

-,7710742030931 

-27,905391859703 

,2470942124541 



z 


/' 
t 




Flauet 


-,0093492974028 


4912547451450812 


10" 4 


Merkur 


12,414341711086 


2418800,5 






-,3007168020139 


7243456209632765 


lO" 3 


Venus 


,466333884983 


2418800,5 






-,2988441566438 


8997021232750576 


lO" 3 


Erde/Mond 


-4,600618714364 


2418800, 5 






, 6003453815120 


9549528942224058 


10" 4 


Mars 


-2,326322016582 


2418800,5 






-,3791657840946 


2825347528095639 




Jupiter 


-2,794644155181 


2418800,5 






1,3404429211500 


8459468504448002 


lO" 1 


Saturn 


1,988940361864 


2418800,5 






-7,350581509352 


1284898863593535 


lO" 1 


Uranus 


,4997850926145 


2418800,5 






10, 935588726342 


1532112500184276 


lO" 1 


Neptun 


-,3224890503509 


2418800,5 






-,0306814660416 


4912547451450812 


10" 4 


Merkur 


12,276257716752 


2446600, 5 






,0371388838401 


7243456209632765 


lO" 3 


Venus 


-8,344511571660 


2446600, 5 






-,4036327679191 


8997021232750576 


lO" 3 


Erde/Mond 


-,390507030758 


2446600, 5 






-,6031282135783 


9549528942224058 


10" 4 


Mars 


, 647847744847 


2446600, 5 






-,7773046035776 


2825347528095639 




Jupiter 


2, 880830164038 


2446600, 5 






3,3577026506138 


8459468504448002 


lO" 1 


Saturn 


-1,027990965407 


2446600, 5 






-7,527363670361 


1284898863593535 


lO" 1 


Uranus 


-,3922715840049 


2446600, 5 






11,482634360113 


1532112500184276 


lO" 1 


Neptun 


, 0228693809367 


2446600, 5 







Die Tabelle enthält die rechtwinkligen Örtcr x,y,z und Geschwindigkeiten x,y,z sowie die Bcschlcuni- 
gungskonstanten fi (Zeiteinheit jeweils 1ÜÜ0 Tage) für die Planeten Merkur bis Neptun für zwei Epochen t. 



nur aus den radiometrischen Messungen bestimmt, und anschließend mit den optischen Beobachtungen ver- 
glichen. Dieser Vergleich erfolgte nur oberflächlich, außerdem ist diese Ephcmeridc in ihrer veröffentlichten 
Form nicht auf das dynamische Äquinoktium reduziert. Eine umfangreiche Untersuchung ergab, daß dazu (l,i 
eine Korrektur der Ausrichtung um 9 X = -0"734, Ö y = +0"101, Z = +0"080 (für das Äquinoktium 1950) 
nötig ist, die angebracht wurde 64 . Bei der Einführung der eigenen Verwendung dieser Initialwcrte wur- 

>l zusätzlich zur Korrektur B z = —0' 525 vom FK4- zum FKr^System 

Die Initialwerte für die äußeren Planeten hatten die Autoren von G.OcstCTWinlc.T. loc.tit., übernommen. Die Dar- 
stellung von Neptun weicht mehrere " von der Ephemeride DE119 ab. 



39 



den sie außerdem auf die reziproken Massen für Jupiter, Saturn und Uranus von 1047, 348, 3498, und 
23Ü30 bczogcn 6ü . Dies wurde im Wesentlichen bewerkstelligt, indem aus den Originaldatcn rechtwinklige 
heliozentrische Koordinaten über den Beobachtungszeitraum hinweg generiert und daraus unter Verwen- 
dung der neuen Grundlagen die darauf bezogenen, geringfügig geänderten Initialwcrtc bestimmt wurden. 
Bei DE118/119 ergab sich aus radiometrischen und optischen Beobachtungen neben den Initialwcrtcn die 
Rotation des optischen Bczugssystemcs ähnlich wie gemäß den letzten Tcrmcn in Gl. 2.67, als Bezugssy- 
stem wurde die Lage des FK4-Systcn1.cs zur Epoche B1950 gewählt, indem die Koeffizienten zur Berechnung 
der Rotationsgrößen von dort an gerechnet wurden. Eine daran angeschlossene Berechnung der mittleren 
Knotcnlängc ergab, daß zur Reduktion auf das dynamische Äquinoktium eine Korrektur von Z — — 0"531 
nötig ist 66 . Die Ephemeride im ursprünglichen System bezeichnet man mit DE118, die auf das dynami- 
sche Äquinoktium bezogene mit DE119. DE119 oder die wie oben korrigierte Theorie CRT-81 67 kann man 
mit ausreichender Genauigkeit in Verbindung mit nach §2.5.3 auf das FK^-Systcm bezogene Beobachtungen 
verwenden, worauf sich auch die später angegebenen Ergebnisse beziehen. 

Die für vorliegende Berechnungen verwendeten Initialwcrtc der Planeten sind in Tab. 2.1. wiedergege- 
ben. 



2.7. Der light shift 

Bei mehreren Kometen verblieben in den Bahnbereichen größter Helligkeit nach der Bahnvcrbcsscrung 
deutliche Rcstfchlcr. Sic können nicht als nicht gravitative Effekte gedeutet werden, weil sie zu schnell 
veränderlich sind, und in erheblichem Maße von den einzelnen Beobachtern und Bcobachtungsumständcn 
wie Belichtungszeit, Spcktralbcrcich usw. abhängen. 

Als Grund wurde in Erwägung gezogen 68 , daß die hellste Stelle des Kometen, auf den sich die Positi- 
onsmessungen beziehen, erheblich von der Position des Kernes abweicht {light shift). 

Weder quantitative Untersuchungen noch eine Theorie des Effektes liegen vor 69 . Die auftretenden 
Rcstfchlcr ergaben jedoch folgende Erkenntnisse: Der light shift verläuft in Etwa längs der Richtung zur 
Sonne. Die Stelle, auf die sich die Positionsmessung bezieht, ist näher an der Sonne als der unsichtbare Kern. 
Der Betrag ist nicht eine einfache Funktion des heliozentrischen Abstandcs des Kometen, sondern hängt ganz 
erheblich vom Beobachter, Instrument und von den Bcobachtungsumständcn ab. Bei kurzer Belichtung ist 
der Effekt im Allgemeinen geringer als bei länger belichteten, und in einigen Fällen von Bcobachtungsscricn 
mit sehr kurzen, sternförmigen Abbildungen des Kometen sind keine signifikanten systematischen Rcstfchlcr 
zu sehen. 

Nach der durch eigene Beobachtungen gebildeten Auffassung des Verfassers hat man zwischen der Hcllig- 
kcitsvcrtcilung des Kometen als physikalische und seiner Figur als physiologische Ursache zu unterscheiden. 
Die Hclligkcitsvcrteilung der (blauen) Gas- und (gelben) Staubkomponente des Kometen und ihre Faltung 
mit der Empfangsfunktion (insbesondere mit der spektralen Empfindlichkeit der Fotoplatte und mit der 
in der zufällig gewählten Fokalcbcnc des Tclcskopcs etwa in Fällen von Astrographcn mit langgestreckter 
Fokalkurvc) bestimmt, wie der Komet durch die Aufnahme abgebildet wird, und diese Figur wiederum, wo 
beim Ausmessen subjektiv die Mitte gewählt wird. Diese zweite Ursache kann man vermutlich durch pho- 
tometrisches Ausmessen vermeiden. Unverständlich ist allerdings, warum bei kurzen Belichtungszeiten der 
Effekt verschwindet (siehe Abb. 2.2). 



65 Astron.Astroph. 119(1983),97 

ein Wert, der mit der Festlegung des Katalogäquinoktiums des FK5 sehr gut übereinstimmt 

die Erdkoordinaten weichen in den letzten zwanzig Jahren nur um wenige KTfl voneinander ab 
68 siehe etwa H.Westphalen, Astron. Nachr. 24(1846),370; D.O.Mochnatsch, Bull. Inst. Theor.Astr. 6(1956), 269; 

B.G.Marsden, Astron. Journal 74(1969),732; G.Sitarski, Acta Astron. 34(1984), 269 
*' Die theoretischen Untersuchungen von D. O.Mül'.iVIUÜ-Hch ergaben, daß der light shift in Perihelnähe am geringsten sei, 

was nicht mit den Beobachtungen übereinstimmt. Neben der Helligkeitsverteihmg wurde nicht die offenbar erheblichere 

Instrumente nabliä 11g igkeit erörtert. 
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hellste 
Stelle 




Sonne 



Kern 



Abb. 2.2 Helligkeitsprofil eines Kometen 

Die Sehnen entsprechen dem abgebildeten Bereich des Kometen bei Aufnahmen mit verschiedenen Be- 
lichtungszeiten. Bei Verkürzung der Belichtungszeit wandert die angemessene Position (Figurmitte) zur 
hellsten Stelle des Kometen, die vom Kern aus in Richtung zur Sonne hin liegt. Dieser physiologische Anteil 
des light shift läßt sich bei länger belichteten Aufnahmen auch durch photometrisches Ausmessen vermei- 
den. Ungeklärt ist, warum bei noch kürzeren Belichtungszeiten die Position wieder in die entgegengesetzte 
Richtung wandert (der light shift zur Sonne hin wird kleiner). 




Abb. 2.3 Der light shift in der scheinbaren Position 

Ein radialer light shift S unbekannter Größe läßt sich bei den Bahnrechnungen eliminieren, indem von 
Rcktaszcnsion a und Deklination 5 auf Positionswinkcl und Elongation ip zur Sonne übergegangen wird. 
Im Positionswinkcl ist der light shift nicht enthalten, sodaß nur deren Bcdingungsglcichung für die Rechnung 
verwendet wird. Der Übergang erfolgt am einfachsten durch Multiplizieren der Bcdingungsglcichungcn für 
cos 6 da dS mit der Rotationsmatrix um den Positionswinkel. 




Abb. 2.4 



Auswirkung eines light shift beidseitig einer Konjunktion 



Eine scheinbare Verringerung der heliozentrischen Distanz des Kometen bei einer Konjunktion resultiert 
in einer Zunahme der bei Bahnrechnungen erhaltenen Distanz, weil die geringere Winkelgeschwindigkeit statt 
der tatsächlichen Bahn 1 einer weiter entfernten 2 entspricht. K tatsächlicher Komet (Kern), K' hellste Stelle 
(gemessene Position). 



1985-6 Positionswinkel 










1985-6 Elongation 










Abb. 2.5 Restfehler in Positionswinkel und Elongation zur Sonne 

Die Rcstfchlcr in Positionswinkcl sind mit dem Sinus der Elongation multipliziert. Die Rcstfchlcr in 
Elongation wurden um den perspektivischen Faktor korrigiert, sodaß sie den wahren light shift wiedergeben 
(1" — 725km). Im Zeitraum Oktober bis Dezember 1985 und 10. April bis 5. Mai 1986 war der Phascnwinkcl 
beim Kometen klein, sodaß in diesem Zeitraum der light shift unsicher bestimmt ist. Obwohl bei den 
Rechnungen nur die Elongationcn nahe den Oppositionen berücksichtigt wurden, sind hier alle Elongationcn 
mit dem Gewicht der Positionswinkcl aufgetragen, um die unterschiedliche Güte der einzelnen Beobachter 
zu berücksichtigen. Ein Kreuz bedeutet Gewicht 0, ein großer Punkt Gewicht 1, kleine Punkte geringere 
Gewichte. 



Obwohl mittelfristig keine Klärung dieser Sachverhalte zu erwarten ist, taucht die Frage auf, ob dieser 
Effekt nicht irgendwie bei den Bahnbcrcchnungcn berücksichtigt werden kann 70 . In der Literatur wurde 
daher eine Abhängigkeit von der heliozentrischen Distanz S(r) — So ■ s(r) angenommen, wobei So ein für die 
einzelnen Verläufe s(r) zu bestimmender Parameter ist 71 . Der Wert eines solchen Ansatzes erscheint aber 
aus den obigen Erwägungen als äußerst fragwürdig. 

Eine Möglichkeit, den light shift weitgehend unabhängig von seiner Größe zu eliminieren, besteht darin, 
nur denjenigen Anteil des Bcobachtungsmatcrialcs zu verwenden, in dem der light shift nicht enthalten 
ist 72 . Statt die Bcdingungsglcichungcn auf Rcktaszcnsion und Deklination zu verwenden, transformiert 
man sie auf Positionswinkcl und scheinbare Distanz (Elongation) zur Sonne. Ein radialer light shift ist 
nur in den Elongationcn vorhanden, sodaß man bei den Rechnungen nur die Bcdingungsglcichungcn für 
die Positionswinkcl verwendet (siehe Abb. 2.3). In weniger kritischen Punkten der Bahn, etwa in größerer 
Entfernung, oder nahe Oppositionen oder Konjunktionen zur Sonne, wo die Perspektive die Auswirkung 
des light shifts auf die scheinbare Position erheblich verringert, kann man die Bcdingungsglcichungcn der 
Elongation mit geringem Gewicht noch berücksichtigen. Diese Methode hat auch den Vorteil, daß die nach 
Bestimmung der Parameter verbleibenden Rest fehler in Elongation der nicht angepaßten Größe des light 
shift für die einzelnen Beobachtungen entsprechen und Untersuchungen in Bezug auf seine Abhängigkeit von 
den Bcobachtungsumständcn ermöglichen. 

Besonders bemerkenswert ist der Sachverhalt, daß der light shift den Kometen für den Beobachter näher 
an der Sonne erscheinen läßt als der Kern tatsächlich ist, daß jedoch bei Verwendung dieser zu geringen Elon- 
gationcn für Bahnrechnungen dieser Effekt eine zu große Entfernung des Kometen ergibt 7,5 . Dies ist deshalb 
zu erwarten, weil die berechnete Entfernung nicht auf Direktmessungen, sondern auf Winkclmcssungcn be- 
ruht. Eine scheinbare Verringerung der Elongation zur Sonne beidseits einer Konjunktion entspricht auch 
einer Verringerung der heliozentrischen Winkclbcwegung über den betreffenden Zeitraum, also einer Zu- 
nahme der berechneten Distanz (siehe Abb. 2.4). Dies kann nur vermieden werden, wenn die Elongationcn 
nicht verwendet werden und dadurch die Winkelgeschwindigkeit nicht verfälscht wird. 

Die Bcdingungsglcichungcn in Positionswinkcl und Elongation tft erhält man am einfachsten, in- 
dem man sie zunächst in der gewohnten Weise für Rcktaszcnsion a und Deklination 6 aufstellt, und an- 
schließend durch eine Drehung am scheinbaren Himmel um den Positionswinkcl, also durch Multiplizieren 
mit d(9,ip)/d(a.S), auf Positionswinkcl und Elongation transformiert. Dies hat den Vorteil, diese nicht 
explizit berechnen zu müssen. 

Die Ableitung der a,5 nach S erhält man unter Berechnung der d(a,6)/dx. wie üblich (Gl. 2.58,2.81) 
und unter Verwendung von dx/dr — -dr und dS — dr zu 

da cos S y cos a — x sin a 



dS A-r 



2.(>n 



dS (-icosa + wsina) sin<5 + zcosS 

b = ^ = - — x — - 2.69 

dS A-r 

Invertieren ergibt dann für die Ableitung der scheinbaren Richtung senkrecht und parallel zu S nach a,S 
sin tp d0\ 1 f a — b\ f cos S da 



, - , - ,, , 2.70 

# ) s/o? + b 2 V b ° ) V dö 

Diese Diff'crcntialquotientcn finden wegen dS — s(r) dSo auch Anwendung, wenn der Parameter So zu einem 
gewählten Verlauf s(r) aus den a.8 oder 9,ip bestimmt werden soll. 

Das Verfahren, insbesondere die Auswirkung der NichtVerwendung oder Abwichtung der Elongationcn 
auf die Genauigkeit der Parameterbestimmung, hat der Verfasser in Bezug auf einige Kometen untersucht, 



70 Das von U.Bastian,S.F.Röser t ESA-SP 250(1986) Vol.3,285; Sterne u.Weltr. 25(1986), 640 beschriebene Verfahren 
(Fourrierrücktransformation der Instrument ene ff ekte usw.) ist weitgehend wertlos. Solange der tatsächliche Kern nicht 
durch die Koma sichtbar ist. kann aus Aufnahmen auch keine Informetion über seinen Ort erhalten werden. Dieser ist 
nur dadurch erschließbar, daß er sich an die Bewegungsgesetze halten muß 

71 Die Untersuchungen von G.Sitarski am Kometen 1960II ergaben die beste Darstellung bei S OC r -3 oder 3 OC r -4 
mit einem Betrag von etwa 9000 KW, nahe dem Perihel, leider ist jedoch das Vorzeichen unklar 

72 W.Landgraf, Qn the Motion of Comet Halley. ESTEC EP/14.7/6184 Final Report. GÖttingen 1984. §2.2 

73 Beim Halleyschen Kometen im März 1986 um über 600 km, siehe §4.5.1 
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insbesondere für den Hallcyschcn Kometen 74 . Für die vorliegende Arbeit ist davon nur der Befund von 
Bedeutung, daß bei Verwendung von Beobachtungen aus zwei oder mehr Erscheinungen und nicht sehr 
kleiner Bahnncigung die mittleren Fehler der Ergebnisse nur geringfügig anwachsen. 

Dieses Verfahren hat sich bei Berechnungen des Hallcyschcn Kometen sehr gut bewährt. Ab Ende 1985 
wurden von den Beobachtern abhängige systematische Rcstfchlcr sichtbar, die auf einen light shift hinwie- 
sen. Im Januar 1986 betraf dies nahezu alle Beobachtungen. Im Februar tauchte der Komet nach seiner 
Konjunktion zur Sonne etwa 4" abweichend zu dem Ort auf, der sich bei einer Bahnrechnung unter möglichst 
guter Anpassung der vorangegangenen Rcktaszcnsioncn und Deklinationen ergeben hatte. Im Positionswin- 
kel ergab sich jedoch kein Sprung, es handelte sich im Wesentlichen um einen systematischen Fehler in der 
Elongation (siehe Abb. 2.5). Der Verfasser hat alle vorgeschlagenen Verfahren zur Behandlung des light 
shiftes angewendet 7S . Dabei ergab dieses Verfahren signifikant die beste Darstellung des verwendeten Bcob- 
achtungsmatcrialcs, und lieferte mit etwa 150km die genaueste Vorausberechnung des Kometen für die Zeit 
des Vorbeifluges der Raumsonde Giotto. Die von den Raumsonden Vcga 1 und Vcga 2 gemessenen Positionen 
des Kometen waren eine wichtige Bestätigung für die Diskrepanz des tatsächlichen zum scheinbaren Ort des 
Kometen, also daß ein light shift der erläuterten Art gegeben ist und nicht etwa Fehler in der Modellierung 
der Bewegung des Kometen, insbesondere unerklärlich große nicht gravitative Kräfte, vorliegen. 

Später hat der Verfasser versucht, aus den Rcstfchlcrn in Elongation Schlüsse auf das Wesen des light 
shiftes zu ziehen 76 . Dies war jedoch nur im statistischen Sinne möglich, da die meisten Beobachter die 
relevanten Einzelheiten ihrer Beobachtungen nicht veröffentlicht haben. Zusammenfassend ergab sich, daß 
der absolute light shift S sich nicht als eine Funktion der heliozentrischen Distanz, sondern erheblich besser 
in Abhängigkeit von der reduzierten Helligkeit und der geozentrischen Distanz darstellen läßt. So war bei- 
spielsweise der light shift bei gleicher heliozentrischer Entfernung nach dem Pcrihclium im Februar erheblich 
größer als davor. Anfang April, bei erheblicher Annäherung des Kometen an die Erde, war der light shift 
nur sehr gering, nahm anschließend aber wieder deutlich zu. Er verhält sich etwa gemäß 

S = 5 A 2 /10 m/5 mit So = 3700 ± 400 km, 2.71 

(m visuelle Helligkeit). Dieser Zusammenhang ist unter anderem auch in Einklang damit, daß bei etwa 
gleicher reduzierter Helligkeit der scheinbare light shift S/A die selbe Größe unabhängig von der Entfernung 
des Beobachters besitzt und die Raumsonden bei der Annäherung keinen light shift messen konnten, sodaß 
es sich bei der radialen Verschiebung des scheinbar hellsten Punktes zur Sonne hin nicht um einen realen 
Effekt, sondern um einen Bcobachtungscffckt handelt. 

Man muß sich stets darüber im Klaren sein, daß dieser Zusammenhang nur im statistischen Sinne, un- 
abhängig von den Bcob acht ungs umständen, gilt. Ebenso ist fraglich, inwieweit er sich auf andere Kometen 
verallgemeinern läßt. Selbst bei großzügiger Abschätzung darf man aber vermuten, daß demnach bei Kome- 
ten von 7. Größe visuell der light shift bei weniger als 1AE Abstand von der Erde vernachlässigbar ist. Die 
Überprüfung der einzelnen hier bearbeiteten Kometen ergab, daß in keinem Fall der light shift berücksichtigt 
werden braucht, mit Ausnahme des Hallcyschcn Kometen, wo seine Berücksichtigung indessen von ganz er- 
heblicher Bedeutung ist. 

2.8. Die Verbesserung der Unbekannten 

Nach dem Vergleich der Beobachtungen mit der Theorie sollen verbesserte Werte ihrer Parameter er- 
mittelt werden. 

Es seien b die Beobachtungen — in der Regel a und S — , r die Werte, welche sie gemäß des Modcllcs und 
der vorliegenden Werte der Parameter u annehmen sollten, und f die Differenzen (Fehler) zwischen beiden. 
Gesucht sind nun die Korrekturen Au, die an die Parameter anzubringen sind, damit die Beobachtungen 
möglichst gut dargestellt werden. 



ibid. Tab. 12 und 13; Astron. Astrophys. 157(1986),245 

eine Auswahl davon veröffentlicht im Rahmen eines Artikels von I.HüSCgdWO,. The Heavens 67(1986). 131; siehe auch 

§4.5 

ESA SP-250(19S6) Vol.3,289; siehe auch §4 
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Vernünftigerweise verwendet man solche Modelle und Parameter, die differenzierbar in den Beobach- 
tungswerten sind. Mittels der Ableitungen drjdu kann man die bei Variation der Modcllparamcter u zu 
erwartenden Änderungen in den r berechnen. Hat man so viele Bcobachtuncn wie Unbekannte, kann man 
die Korrekturen Au dann so einrichten, daß die Änderungen gleich den Abweichungen f sind, sodaß danach 
die korrigierten Parameter die Beobachtungen vollständig darstellen: 

f(u) -Ar- ^Au 2.72 

du 

2.8.1. Die Methode der kleinsten Quadrate 

Liegen weniger Beobachtungen als Unbekannte vor. oder sind die Beobachtungen kaum von den Un- 
bekannten abhängig, muß die Anzahl der Unbekannten reduziert oder müssen Zusammenhänge zwischen 
den Unbekannten angenommen werden. Ist die Zahl der Unbekannten gleich derjenigen der Beobachtungen, 
können sie ohne weitere Annahmen bestimmt werden, wobei formal ebenso vorgegangen wird wie im nach- 
folgenden Fall. Liegen mehr Beobachtungen als Unbekannte vor. können sie nicht ohne Rcstfchlcr dargestellt 
werden. Dann muß ein Ausgleichsprinzip angegeben werden. 

Üblicherweise verwendet man hier die Bedingung, daß die Unbekannten diejenigen Werte annehmen 
sollen, für welche die Summe der Quadrate der Rcstfchlcr so gering wie möglich wird. Auf die Hcrlcitung 
und Berechtigung dieser Methode der Kleinsten Quadrate kann hier nicht eingegangen werden 77 . Ihre Vor- 
aussetzungen 78 sind fast nie erfüllt und es wurden auch häufig andere Verfahren vorgeschlagen 79 , sie hat sich 
jedoch gleichwohl gut bewährt und wurde auch hier verwendet. 

a) Berechnung verbesserter Werte der Unbekannten 

Die Diskrepanzen Beobachtung minus Rechnung f sind in Abhängigkeit der Korrekturen Au der Aus- 
gangswerte u 

f (u) - b - r(u) - b - (r(u ) + ^Au) - f(u ) - |^Au 2.73 

Das Ausglcichsprinzip ^ ff — > min. ergibt dann 

f(u) T f(u) -» min oder 5 u f(u) T f(u) - 2.74 

Die letzte Bedingung besagt, daß die Variation der Fchlcrquadrat summe nach jeder der Unbekannten ver- 
schwinden soll und liefert daher entsprechend viele Gleichungen für deren Bestimmung. 

Setzt man in beide Gleichungen obiges fein, wobei man bei Durchführung der Variation annehmen kann, 
daß drjdu nur vernachlässigbar von den Au abhängt, erhält man für die Korrekturen der Unbekannten und 
für die verbleibende Fchlcrquadratsummc 

Jr Tf -7r T 7r A » = ° 2 - 75 

au au au 

und 

f T f(u) = f T f(u„) + Auf^f^Au = f r f(u ) + Au T |^ T f(u ) 2.76 

au au au 

Die Koeffizientenmatrix vor Au ist als Produkt einer Matrix mit ihrer Transponierten symmetrisch mit den 

Zeilen- und spaltenweise größten Elementen in der Diagonalen, sodaß dies auch für ihre Inverse K gilt 80 . 



77 siehe C.F.Gauß, Werke Bd. 4(1880) S. 1-117; F. R. Helmert, Die Ausgleichsrechnung nach der Methode der Klein- 
sten Quadrate. 2. Aufl. Leipzig/Berlin 1907. 94ff; W. Jordan, O.Eggert, Handbuch der Vermessungskunde. Bd.l, 
Stuttgart 1935. l-191.582fl\; T.V.Oppolzer, Lehrbuch zur Bahnbestimmung der Kometen und Planeten. Bd. 2. Leip- 
zig 1880. 276f. 

etwa über die Art und Verteilung der Fehler, siehe G.Hü,gcn.Di& Grundzüge der Wahrscheinlichkeitsrechnung. Ber- 
lin 1837; F. W.Bessel Astron. Nachr. 15(1938),369; Helmert lff.; Oppolzer 284ff. 

79 etwa M. K. Gavurin, Zh.Ma,th.i Math Fiz. 2,387; T.K.Nikolskaya, Bull. Inst. Theor.Astr. 13(1972), 148; D.L.Duma, 

loc.cit.; P.E.Elyasberg,A.A.Sukhanov,T.Morley,F.Hechler, ESA Joum. 1984 Vol.8,l9f.; T.Morley,F.Hechler, 

Cometary Astrometrie. Pasadena 1984. 198. 

80 Nähere Einzelheiten Bauschinger 410ff; Oppolzer 311ff; Helmert 51, 269f; W. H. Jejferys, Astron. Journ. 
85(1980) ; 177,86(1981),149 
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b) Der mittlere Fehler der Beobachtungen 

Zu einer überzähligen Beobachtungsreihe kann angegeben werden, wie gut sie dem verwendeten Aus- 
gleichs prinzip entspricht. Ebenso wie dessen Wahl ist die des Gütekriteriums willkürlich 81 und kann daher 
nur plausibel gemacht werden. 

Bei der Methode der Kleinsten Quadrate verwendet man den mittleren Fehler einer Beobachtung 



fTf 

2.77 

i — u 

(n,u Anzahl der Beobachtungen bzw. der Unbekannten). 

Diese Festlegung ist offensichtlich sinnvoll, weil erst ab n > u die Güte der Beobachtungen überprüft werden 
kann, und weil f T f das Argument des Ausglcichsprinzipcs, \i also dessen mittlerer Beitrag einer einzelnen 
Beobachtung, darstellt. \x besitzt noch weitere empfehlenswerte Eigenschaften - es ist etwa der wahrschein- 
lichste Wert für den wahren Fehler einer Beobachtung -. worauf hier aber nicht näher eingegangen werden 
kann 82 . 

In der Praxis kommen häufig unterschiedlich genaue Beobachtungen vor. Eine Beobachtung hat das 
Gewicht p. wenn sie in die Berechnungen so eingehen soll wie p Beobachtungen vom Gewicht 1. Dazu ist ihre 
Bcdingungsglcichung mit yfp durchzumultiplizicren, weil in Gl. 2.75 die Produkte von jeweils zwei Koeffi- 
zienten der Bcdingungsglcichungcn aufaddiert werden. Üblicherweise legt man den mittleren Fehler (i einer 
Beobachtung mit dem Gewicht 1 fest (etwa ±1") und erteilt den Beobachtungen je nach vermuteter Ge- 
nauigkeit fii das Gewicht pi — yj \ij \ii . Wegen dem gelegentlichen Auftreten von Beobachtungen gemischter 
Dimensionen - etwa von Winkeln in " und von Entfernungsmessungen in AE - ist es zweckmäßiger zu sagen, 
daß die Gewichtseinheiten zu \i — 1 (dimensionslos) gewählt wird, also die Bcdingungsglcichungcn durch die 
Unsicherheiten der Beobachtungen geteilt und damit dimcnsionslos gemacht werden. 

c) Der mittlere Fehler der Unbekannten 

Der mittlere Fehler fif einer Funktion /(u) von u verschiedenen Größen u berechnet sich aus deren 
mittleren Fehlern ß p nach dem Gaußschen Fehlerfortpflanzungsgesetz 

i=i j=i ■> 

Die dadurch definierten Größen Qij sind die Korrelationskoeffizienten zwischen der Größen Ui,Uj. Wegen 
dem möglichen Fall /(/) — / ist offensichtlich stets Qu— 1, die restlichen Qij hängen ebenso wie die fi Ui 
von der Gesamtheit der beteiligten u und deren Bestimmung ab. Ist darüber nichts bekannt oder beruhen 
die einzelnen Ui auf unterschiedlichen Beobachtungen, so sind die Q^ zwischen verschiedenen Ui,Uj als 
anzunehmen. Ansonsten ist Qij umso näher an 1, desto ähnlicher die Ableitungen der Beobachtungsgrößen 
nach den beiden Größen - also die dr/dui.ßr/duj und entsprechend die aus ihrer Invertierung folgenden Ku 
im Vergleich zu den Kij - sind, denn wie nachfolgend ersichtlich, hängen die Kij mit den Qij unmittelbar 
zusammen. 

Wir nehmen einmal an, wir hätten anstatt den Unbekannten u andere u' gewählt, die sich zueinander 
als Lincarkombination darstellen lassen 83 . Gefragt ist nun, wie sich dabei K transformiert. Aus 

au au au au au au 



folgt unter Rücksicht auf die Symmetrie von K 

du du 



K' = ^ K^ 2.80 



Helrnert I38f,276 

Bauschinger 402ff; Oppolzer 29lff; Helrnert 70ff 

was l.ici (litforeiHitillcn Korrekturen stets der Fall ist 
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Insbesondere gilt für die Diagonalclemente K' u — Xw=i 5ZT=i t^f-^jt^f- ^a ^ es ^ r beliebige u[(u) gilt, 
und wegen Qu — 1, folgt aus dem Vergleich mit Gl. 2.78, daß die K t j bis auf einen gemeinsamen Vorfaktor 
den ß Pi Qij(J> p entsprechen, die Ku insbesondere den /xf. Daß der Vorfaktor 1 ist, folgt aus Spezialfällen wie 
der Bestimmung der Unbekannten durch Direktmessungen, oder allgemein aus der Rücktransformation auf 
die ursprünglichen Parameter. 

2.8.2. Anwendung auf das Problem der Bahnbcstimnnmg 

Hier sind in der Regel die Beobachtungen b — (A, a, 6) und die Parameter die rechtwinkligen Initialwerte 
und sonstigen Parameter u — U — (X,P). Die Bcdingungsglcichungcn lauten dann 

fA,„,*(U)= 9 (%^^AU 2.81 

öx du 

Dafür erhält man die fA,«,5, indem man mit den Parametern U die Integration gemäß den §§2.1-2.4 

durchführt und die Abweichungen nach §2.5 berechnet. Die Ableitungen <9x/<9U erhält man wie in §2.4 

beschrieben, die d(A,a.5)/dx. sind als Gl. 2.58 angegeben. Bei Kometen hat man üblicherweise nur a,<5, 

also nur zwei Bcdingungsglcichungcn je Beobachtung. 

Oft sollen für u andere Parameter u' als die rechtwinkligen Initialwcrtc U verwendet werden, etwa wenn 
Bedingungen an die Auflösung der Normalglcichungcn oder Werte für die Varianzen oder die Korrclations- 
koeffizienten vorgegeben werden. Man will allerdings weiterhin Gebrauch von den wie gehabt berechneten 
dx/dU machen. In den Gl. 2.72 bis 2.76 schreibt man dazu f^Au = f^#^^Au - f^J^Au'. Man 

' du du du' du du du' 

muß also die Koeffizienten der Bcdingungsglcichungcn mit du/ du' multiplizieren und erhält dann die 
Korrekturen der u'. 

Nach Erhalt der den ggf. gestellten Bedingungen entsprechenden Au' rechnet man diese zur Berech- 
nung der verbesserten Elemente und Durchführung der neuen Rechnung in die entsprechenden U um. Dies 
geschieht durch Multiplizieren mit der Inversen von du' /du. Daher gehen Fehler oder Ungcnauigkcitcn bei 
der Berechnung dieser Matrix nicht in das Ergebnis ein - grundsätzlich kann vorübergehend jede beliebige 
Transformation erfolgen - , allenfalls gestellte Bedingungen könnten leiden. Es ist wichtig, daß die Bahn- 
verbesserung implizit in rechtwinkligen Initialwcrtcn durchgeführt wird, weil andere Unbekannte, etwa die 
Bahnelemente, für Rechnungen hoher Genauigkeit nicht linear genug sind ss . 

In Frage kommen hauptsächlich die klassischen Bahnclemcntc, also u — (E, P). Beispielsweise geschieht 
eine Kreis- oder Parabclbahnbcstimmung unter der Bedingung, die Exzentrizität unverändert zu lassen 
und mit einer Varianz von zu behaften. Die benötigten <9E/öX berechnet man mit völlig ausreichender 
Genauigkeit durch numerische Variation der Gl. 2.14 bis 2.18 . 

Mitunter sollen statt b — (A, a,S) andere Bcob acht ungs großen b' verwendet werden. Da sich sowohl 
die beobachteten b als auch die berechneten r durch Multiplizieren mit dh'/dh umrechnen, mithin auch 
ihre Differenz f, folgen die neuen Bedingungsgleichungen aus Durchmultiplizicren der Gl. 2.81 mit dieser 
Funkt ionalmat rix . 

Gelegentlich soll von den Beobachtungen nur der Anteil parallel oder senkrecht der Variationslinic nach 
einer der Unbekannten verwendet werden, also ihr Einfluß entweder ausgenutzt oder eliminiert werden. Dies 
trifft nach Übergang auf die Kcgclschnittclcmcntc, wie beschrieben, hauptsächlich auf die Pcrihclzcit zu. Bei 
periodischen Kometen oder erdnahen Asteroiden, die nach längerer Zeit wieder auftauchen, soll zunächst mit 
der neu hinzugekommenen Erscheinung nur die Pcrihclzcit oder die große Bahnhalbachsc verbessert werden, 
oder beispielsweise beim Hallcyschcn Kometen sollen mit den älteren, unsicher beobachteten Erscheinungen 
nur die Pcrihclzcitcn, nicht jedoch die anderen Elemente angepaßt werden. Umgekehrt sollen in Sonnenfernen 
Teilen der Bahn die zur Bahnebene senkrechten Parameter A3 bestimmt werden, ohne daß Fehler durch 
die Modcllunsichcrhciten der Bewegung innerhalb der Bahnclemcntc eingehen. Seien die Koeffizienten des 
betreffenden Elementes in den Bcdingungsglcichungcn für cos Sda, d5 mit a und b bezeichnet, so erhält man 
die Bcdingungsglcichungcn parallel und senkrecht zur Variationslinic des Elementes nach Gl. 2.70, wovon 
man die jeweils gewünschte verwendet. 

Die mittleren Fehler von Funktionen h(u) der Unbekannten berechnet man nach Gl. 2.78 . Dazu werden 
die Ableitungen dh/du benötigt. 

oder die Normalgleichiingen gemäß '}2.S0 umrechnen 

Hi> siehe etwa C.Oesterwinter, loc.cit. 
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Handelt es sich um die oskulierenden Elemente zur Epoche, so berechnen sich, falls nicht auf die Elemente 
als Unbekannte übergegangen wurde, die Ableitungen wieder durch Variation der Gl. 2.14 bis 2.18. 

Soll nach der Bahnv er besser ung eine Ephcmcridc gerechnet und zu den Ephcmcridcnörtcrn ihr mittlerer 
Fehler berechnet werden, sind die Ableitungen für die rechtwinkligen Koordinaten unmittelbar die auch 
für die Bcdingungsglcichungcn verwendeten G — öx/öU, wie man sofort durch Ableiten nach der Zeit 
erhält, diejenigen für die Geschwindigkeiten also G. Insgesamt gilt mit X(f) — (x,x)(£) <9X(£)/<9X — 
(G,G), die Ableitung von Ort und Geschwindigkeit nach einer bestimmten Unbekannten sind demnach 
stets Ort und Geschwindigkeit ihres Pscudokörpcrs. Die mittleren Fehler für die oskulierenden Elemente zu 
unterschiedlichen Epochen folgen dann aus ^j — äxT£T~äx aü = ox.(t) ^(äx)" 1, 

2.8.3. Die Wichtung der Beobachtungen 

Über die Wichtung der Beobachtungen wurde bereits viel veröffentlicht 86 . Einen praktischen Nutzen 
hat dies jedoch kaum gebracht, da die B cob acht ungs fehler zu erheblichem Teil nicht statistischer Art sind 87 . 

Ein dabei nicht beachtetes Problem von indessen praktischer Bedeutung ist der Sachverhalt, daß häufig 
die Gewichte iterativ anhand der Rcstfchlcr während der Parameterbestimmung festgelegt werden, sich also 
die Koeffizienten der Bcdingungsglcichungcn während der Rechnung (idealisiert während ihrer Auflösung) 
ändern. Nehmen wir als einfaches Beispiel die Bestimmung einer Größe x durch Direktmessungen x,i an. 
Legt man die Gewichte genau proportional zum reziproken Fchlcrquadrat fest, also pi — po/(xi — x) 2 , dann 
entartet die Minimumbedingung zu ^p^Xi — x) 2 — ^2po — > min. und die Berechnung der Unbekannten 
ist nicht möglich. Legt man die Gewichte nicht individuell, sondern andersartig - etwa anhand des mittleren 
Fehlers aller Beobachtungen des betreffenden Beobachters, wie in der Praxis oft üblich - fest, so tritt bei 
kleiner oder mäßiger Zahl an Beobachtungen das genannte Problem nicht auf. Bei sehr großer Zahl wird 
jedoch statistisch diese Diskret isierung aufgehoben und erneut die Bestimmung der Unbekannten unmöglich. 
Ist die geozentrische Bahn sehr dicht mit Beobachtungen belegt, und werden die Gewichte während der 
Bahn Verbesserung iterativ angepaßt, bestimmen die Beobachtungen in kleinen Intervallen der Bahn ähnlich 
obigem Beispiel nicht mehr den tatsächlichen Ort des Objektes. Man beobachtet in der Praxis auch, daß 
entgegen der Natur der Sache mit stark zunehmender Anzahl an Beobachtungen die Bestimmbarkeit der 
Parameter schlechter statt besser wird 88 , was in der Art der Wichtung seine Ursachen haben dürfte. 

Darüber hinaus ist bei der Wichtung die Verteilung der Beobachtungen zu berücksichtigen, insbesondere 
erhebliche Anhäufungen in kürzeren Zeiträumen. Zwar kann die dadurch unbedeutender werdende Anzahl 
an Beobachtungen in anderen Bahnbercichcn, etwa entfernt vom Gegenschein, die oft nur durch sie mögliche 
Scparicrung einer größeren Zahl an Parametern nicht in ihrem Wesen betreffen, sondern allenfalls in ihrer 
technischen Durchführung der Auflösung der Normalglcichungcn. In manchen Bereichen ist nun einmal das 
Objekt umfangreicher beobachtet worden, was auch in die Rechnung eingehen sollte. Jedoch enthalten die 
Beobachtungen in kurzen Bahnabschnitten oft korrelierende Fehler, die das sinnvollcrwcisc noch zu erteilende 
Gesamtgewicht begrenzen. Sind beispielsweise sehr zahlreiche Beobachtungen in einer Nacht gemacht und die 
Positionen mit cinunddcnsclbcn Anschlußstcrnen erhalten worden, bei denen im Vergleich zur nächsten Nacht 
oder einem anderen Beobachter mit anderen Anschlußstcrnen ein systematischer Fehler der Größe // eingeht, 
so sollte das Gesamtgewicht der Bcobachtungsrcihc nicht wesentlich höher liegen als es \s! entspricht. Hinzu 
kommen noch systematische Fehler aus anderen Gründen. Der Wert hängt von sehr vielen Gegebenheiten 
ab und ist in der Praxis nur schwierig abzuschätzen, aber man kann als Erfahrungstatsache sagen, daß 
bei Kometen das Gesamtgewicht je Nacht und Beobachter nicht das // — 0"2 entsprechende wesentlich 
übersteigen sollte. 

Es hat sich als zweckmäßig erwiesen, nur zwei oder drei Gewichtsstufen einzuführen. Als Kriterium 
dient - abgesehen von Fällen offensichtlicher größerer systematischer Fehler - der Rcstfchlcr / im Vergleich 
zu dem der umliegenden Beobachtungen anstatt zur Rechnung; auch um Modellfehlern oder -Unsicherheiten 
gerecht zu werden. In der Regel erhalten Beobachtungen bis etwa 2fi das Gewicht p = 1, bis etwa 3// p — 0, 4 
und darüber p — 0. Darüber hinaus wird in den Fällen, in welchen eine sehr große Zahl an Beobachtungen 
vorliegt, auf das Gesamtbild des betreffenden Beobachters Rücksicht genommen. 

86 siehe etwa Gaußloc.cit.; Helmert 328ff; R. Lehmann- Filhes, Astron. Nachr. 117(1887), I2if: M.Bidicki, Proc. 

IAU Symp. 45(1972),112 

87 so bereits F. W.BeSSel, Astron. Nachr. 24(1846),369; H. Westphalen, i'bid.,371 

88 D.L.Duma, loc.tit.: R.L.Branham, Ast.ron.Journ.84(1979),1632, 85(1980), 1520 
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3. Die Durchführung der Rechnungen 

3.1. Vorbetrachtungen 

Obwohl die Ableitung der die nicht gravi tativen Effekte beschreibenden Unbekannten in der Praxis, wie 
bei allen Param.ctcrbcstirnniungsproblcm.cn üblich, verhältnismäßig schematisch erfolgt, indem die Variatio- 
nen der beobachtbaren Größen auf die der Parameter des beschreibenden Modcllcs zurückgeführt werden, 
erscheint es doch geboten, in Hinblick auf eine günstige Paramctrisicrung und Auswahl des Bcobachtungsma- 
tcrialcs eine Betrachtung darüber voranzustellen, wie sich die nicht gravi tativen Kräfte auf die Beobachtungen 
auswirken. 

1. Die nichtgravitativen Effekte äußern sich hauptsächlich in einer Verlängerung oder Verkürzung der 
Umlaufszcit. Die Funktion der Abhängigkeit von der heliozentrischen Distanz oder der Zeit ist unbekannt. 
Teilweise wird die Meinung vertreten, daß es sich um kontinuierliche, teils, daß es sich um impulsmäßige oder 
zumindest nur kurzzeitig in Pcrihclnähc stattfindende Kräfte handelt. Eine ungenügende Darstellung der 
Beobachtungen durch die vorgeschlagenen Funktionen legt nahe, daß diese bei den betreffenden Kometen 
deutlich korrekturbedürftig sind. Nach Meinung des Verfassers belegt dies auch der Befund, daß sich nach 
Annäherungen an den Jupiter nicht nur die Umlaufszcitändcrung, sondern auch der Wert der nichtgravi- 
tativen Parameter deutlich ändert. Der Sachverhalt, daß Kometen mit einer Pcrihcldistanz bis über 6 AE 
bekannt sind und demnach noch in dieser Entfernung Sublimation stattfindet, legt nahe, daß diese wesentlich 
langsamer abnimmt als nach Stil 2. 

2. Obwohl die nichtgravitativen Effekte für die einzelnen Kometen sehr stark differieren, seien zur 
Vergegenwärtigung ihres Einflusses auf die Beobachtungen grobe Durchschnittswerte genannt. Die Abwei- 
chung von der gravitativen Bewegung liegt typischcrwcisc in der Größenordnung von 1' bis 10'. Die säkulare 
Änderung dieses Effektes liegt im Bereich von 1% bis 20%. Hinzu kommt bei jedem Umlauf eine erratische 
Anomalie. Diese ist teils kleiner, teils größer als die säkulare Änderung, also auch im Bereich von einigen 
Prozent der Umlaufszcitändcrung, oder Bruchteilen einer Bogcnminutc. Bei jeder Erscheinung des Kometen 
werden zehn bis hundert Beobachtungen gemacht. Der mittlere Fehler heutiger Beobachtungen beträgt 1". 
Systematische Bcob acht ungs fehler von über 2" können in der Regel erkannt und die Beobachtungen elimi- 
niert werden. In den äußeren Teilen der Bahn fallen weniger Beobachtungen an, jedoch deutlich genauere. 
Der systematische Gang der Beobachtungen in den äußeren Bereichen, soweit er signifikant auf Fehler der 
Kraftfunktion und nicht auf andere Gründe hindeutet (s. Pkt. 5). beträgt einige Bogensckundcn. 

3. Die Auswirkung der einzelnen Kraftkomponenten auf die Bewegung besteht teils in einer säkularen 
Änderung einzelner Elemente, teils in Anomalien, die im gegenüberliegendem Teil der Bahn mit anderem 
Vorzeichen auftreten und daher nach einem Umlauf wieder verschwunden sind (siehe Tab. 3.1). 

Durch die radiale Kraft f\ entsteht, wie bei allen Zentralkräftcn, die nicht oc r oder oc r -2 verlaufen, eine 
Pcrihcldrchung, die bei einer zur Sonne hin gerichteten Kraft {A\ negativ) in Richtung des Umlaufes erfolgt, 
sowie eine entsprechende Differenz zwischen Umlaufszcit und Abstand zwischen zwei Pcrihcldurchgängcn. 
Umlaufszcit und Exzentrizität bleiben konstant, jedoch ergibt sich bis zum Aphcl eine anschließend wieder 
verschwindende Anomalie. Bei positivem A\ wird der Komet im aufsteigenden Ast seiner Bahn beschleunigt, 
im absteigenden wieder abgebremst. Der Hallcyschc Komet etwa erreicht dadurch das Aphcl um mehrere 
Tage zu früh gegenüber einer gleichförmigen Bewegung, die Störungen durch f 2 einmal außer Acht gelassen. 

Der Parameter A\ folgt daher hauptsächlich aus den Beobachtungen in den äußeren Bahntcilcn oder 
der Pcrihcldrchung zwischen zwei Umläufen. 

Durch die transversale Kraft f 2 entsteht eine säkulare Änderung von Exzentrizität und Pcrihcldistanz, 
insgesamt also die auffallende Änderung der Umlaufszcit. Vorübergehende Anomalien entstehen in der 
Pcrihcllängc, sowie in der mittleren täglichen Bewegung über die säkulare Änderung hinaus, bedingt durch 
den expliziten Verlauf f 2 { r )- 

Der Parameter A 2 folgt hauptsächlich aus der Änderung der Umlaufszcit. 

Durch die vertikale Kraft f :i entsteht hauptsächlich eine Verlagerung der Bahncbcnc. Diese Kraft ent- 
steht, wenn die Rotationsachse gegen die Bahnnormalc geneigt ist, und führt in der Regel zu einer Präzession 
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Tabelle 3.1 Nichtgravitative St 
q AT/A, Aq/A- 



:s.o 
2.0 

1,5 

1,0 
0,75 
0,50 
0,40 
0,30 
0,20 
0,025 



örungen der Bahnelemente 
Ae/Ai Aui/Ai 

(-) (+) 



3,0 


-0 rf 000044 


-0, 00000009 


+0, 00000006 


-0°000013 


2,0 


-0,000920 


-0,00000419 


+0, 00000419 


-0,000537 


1,5 


-0,001150 


-0,00001053 


+0, 00001404 


-0,001267 


1,0 


-0,000372 


-0,00001511 


+0, 00003023 


-0,001825 


0,75 


+0,000161 


-0,00001506 


+0, 00004016 


-0,001938 


0,50 


+0,000585 


-0,00001290 


+0,00005161 


-0,001925 


0,40 


+0, 000692 


-0,00001138 


+0,00005691 


-0,001881 


0,30 


+0,000752 


-0, 00000945 


+0, 00006299 


-0,001813 


0,20 


+0,000754 


-0, 00000706 


+0, 00007055 


-0,001715 


0,025 


+0,000581 


-0,00000130 


+0, 00010392 


-0,001505 


9 


AT/A 2 


Aq/A 2 


Ae/A 2 


Aij/A 2 




R 


(+) 


(+) 


(-) 



+0"' 000027 
+0,000969 
+0,002086 
+0,002347 
+0,001906 
+0,001128 
+0,000754 
+0,000369 
+0,000004 
-0,000287 



+0.00000004 
+0,00000289 
+0,00001020 
+0,00002202 
+0,00002800 
+0,00003235 
+0,00003312 
+0,00003289 
+0,00003104 
+0.00001563 



1-0, 00000045 
1-0, 00002006 
(-0,00005013 
1-0, 00008093 
1-0, 00009437 
1-0, 00010764 
1-0,00011354 
1-0, 00012043 
1-0, 00012952 
1-0, 00017904 



+0°000006 
+0,000375 
+0,001294 
+0,002943 
+0,004088 
+0,005607 
+0,006410 
+0,007426 
+0,008853 
+0,016923 



Angegeben sind die Störungen der Elemente von großer heliozentrischer Entfernung bis zum Pcrihcl 
durch nichtgravitative Kräfte vom Stil 2 bei parabclnahen Bahnen. Im Falle eines + kommen auf der 
zweiten Bahnhälftc die Störungen mit dem selben Vorzeichen noch einmal hinzu, bei einem — mit dem 
entgegengesetzten Vorzeichen. Im ersten Fall verbleibt daher das Doppelte des angegebenen Wertes als 
säkulare Störung, im zweiten Fall entsteht keine säkulare Störung. 

Tabelle 3.2 Störungen der Elemente des Halleyschen Kometen 
durch nichtgravitative Kräfte Stil 2 

AT Aq Ae Au Au 



säkulare Störungen: 



f0 d 00007 



-1"39 



1-0, 0000010 +0, 0000033 



+4 d 15 



per AJ0, 10 
per A 2 /0, 0160 



temporäre Störungen: 



+0 d 00003 +0,0000014 


-0,0000047 


-0"70 


-5 d 76 


per Äi/0,10 


-0,00003 +0,0000005 


+0,0000016 


-0,29 


+2,07 


per A 2 /0, 0160 



Erster Teil: säkulare Störungen zwischen zwei Pcrihcldurchgäiigcn des Kometen. 
Zweiter Teil: Änderungen der Elemente zwischen einem Pcrihcldurchgang bis zum nächsten Aphcl. Die 
Störungen der Elemente entstehen fast völlig bei unter 3 AE heliozentrischer Distanz, die Abweichung dv 
der wahren Anomalie von der ungestörten Bewegung - hauptsächlich bedingt durch Ae und Aq - dagegen 
bis zum Aphcl. 
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der Bahncbcnc. Die Störungen, ausgedrückt in ckliptikalcn Elementen, hängen sehr von der Lage der Eklip- 
tik zur Komctcnbahn ab. und erfolgen nur bei einer Pcrilicllängc von 90° oder 270° symmetrisch zum Pcrihcl. 
Beim Hallcyschcn Kometen ändert sich je Umlauf die Knotcnlängc um -0" 1 . die Pcrilicllängc um 0" 005 sowie 
die Bahnncigung um 0"01 pro Umlauf. Die durch diese Präzession begründeten säkularen und temporären 
Störungen zweiter Ordnung in allen Elementen sind sehr klein (10 "). 

Die Verlagerung der Bahncbcnc und damit A3 ist nicht durch andere Unbekannte darstellbar und daher 
prinzipiell gut scparabcl. ist aber oft betragsmäßig sehr klein. 

Im Falle eines asymmetrischen Kraftgesetzes treffen diese Überlegungen nicht mehr zu. Man kann 
die säkularen Änderungen der einzelnen Elemente nicht mehr auf das Integral einer einzelnen Komponente 
zurückzuführen. Insbesondere kann man die Änderung der Umlaufszcit nicht mehr eindeutig auf die transver- 
sale Komponente zurückführen, sondern allgemein auf die Asymmetrie der Kräfte im auf- und absteigenden 
Bahnast. Wenn z.Bsp. bei dem Hallcyschcn Kometen A\ im absteigenden Teil nur um 0.01 größer ist als im 
aufsteigenden, hätte dies eine Verlängerung der Umlaufszcit um 0,58 Tage zur Folge. 

Dies ist von großer Bedeutung für die Ephcmcridcnrcchnung. Im klassischen Fall oder bei Gewißheit über 
den Verlauf der fi(r) folgen Distanzen aus Winkclmcssungcn, etwa die große Bahnhalbachsc der großen und 
kleinen Planeten auf 10 -7 '" 9 AE. Ohne Kenntnis des tatsächlichen Kraftgesetzes besteht diese Kopplung 
nicht mehr. Je nach angenommenem Kraftgesetz erhält man bei ähnlich guter Darstellung der Beobach- 
tungen erheblich unterschiedliche geozentrische Distanzen (die allerdings umgekehrt den Kräfteverlauf zu 
ermitteln gestatten: s. Pkt. 6). Dies macht eine bessere Kenntnis der nichtgravitativen Kräfte insbesondere 
für Raumsondenprojekte erforderlich. 

4- Der Einßuß einer radialen nichtgravitativen Beschleunigung im Bahnabschnitt [r — 0,5. r +0, 5] auf 
die wahre Anomalie in einer größeren Entfernung r bei parabclnahcr Bewegung und kleiner Pcrihcldistanz 
ist in Abb. 3.1 wiedergegeben. Sic wurde für A\ — 1.0 und Stil 2 berechnet. Zwar nimmt diese Funktion ab 
ro — 2.8 AE sehr schnell ab, die durch die Beschleunigungen zurückgelegte Strecke wird durch die langsame 
Bewegung in den äußeren Bahnteilen jedoch erheblich. Wie aus der Abbildung ersichtlich, handelt es sich um 
noch beobachtbare Größenordnungen, falls A\ größer als etwa 0, 1 ist. Infolge der Häufung der Beobachtungen 
in Pcrihclnähc kann man sich die Bewegung dort als festgehalten denken. Wenn eine gute Verteilung der 
Beobachtungen in den äußeren Bereichen gegeben ist, korrelieren die Unbekannten nicht nennenswert, weil 
bei jeder Beobachtung nur die Kräfte für die Bahnabschnitt c mit geringerer Distanz eingehen. Die Situation 
wird jedoch dadurch verschlechtert, daß man im Wesentlichen aus den beobachteten ckliptikalcn Längen den 
Verlauf sowohl der radialen als auch der transversalen Komponente bestimmen muß (s. Pkt. 6). 

5. Ein quasistatisches Modell . bei dem Große und Verlauf der Kräfte, ob symmetrisch oder asym- 
metrisch, bei jedem Umlauf als gleich angenommen werden, ergibt eine konstant bleibende Änderung der 
Umlaufszcit. Die säkularen und pertikularen Differenzen zu einer konstanten Änderung der Umlaufszcit 
können daher nicht durch einen geeigneten Verlauf der nichtgravitativen Kräfte, sondern nur durch deren 
zeitliche Veränderung, erklärt und dargestellt werden. Versucht man, überzählige Erscheinungen darzustel- 
len, sind verbleibende Rcstfchlcr zu erwarten, die im Wesentlichen einer Verschiebung der Pcrihclzcit in 
die eine oder andere Richtung entsprechen. Sucht man nach einem passenden Verlauf der nichtgravitativen 
Kräfte, so kann sich diese in den äußeren Bereichen dem Fehler anpassen, sodaß illusorische Ergebnisse 
erhalten werden. Schon eine Diskrepanz von vielleicht 10" in Pcrihclnähc entspricht der in Abb. 3.1 ersicht- 
lichen Größenordnung in den äußeren Bahnbcrcichcn. Daher ist unbedingt darauf zu achten, daß nicht mehr 
Erscheinungen verwendet werden, als durch die Anzahl an eingeführten Parametern, die einen Einfluß auf 
die Umlaufszcit haben, dargestellt werden können, und insbesondere keine signifikanten Rcstfchlcr nahe dem 
Pcrihcl verbleiben. 

6. Die Abzahlung der notwendigen und günstigenfalls bestimmbaren Parameter kann nicht anhand der 
zur Verfügung stehenden Einzclbcob achtun gen, sondern muß etwas heuristisch erfolgen. 

In der Regel sind die sechs klassischen Bahnclcmcntc durch zwei Erscheinungen verhältnismäßig genau 
festgelegt. Etwaige systematische Fehler deuten in der Regel noch nicht zwingend auf nicht gravitative Kräfte 
hin. Am ehesten machen sich radiale Kräfte /1 in den äußeren Bahntcilcn und vertikale Kräfte f$ in 
einer Drehung der Bahncbcnc zwischen beiden Erscheinungen bemerkbar. Bei Hinzunahme einer dritten 
Erscheinung kann in der Regel eine Veränderung der Umlaufszcit festgestellt werden, die bei Annahme eines 
symmetrischen Kräftcvcrlaufcs (etwa Stil 1 oder 2) durch eine transversale Kraft $2 dargestellt werden kann, 
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Abb. 3.1 Ortsänderung durch die nichtgravitative Beschleunigung 

Abgebildet ist die Auswirkung einer nicht gravitativen Komponente Ai von 1,0 (Stil 2) wirkend im 
Intervall [r {) — 0, 5 , r + 0, 5], auf die heliozentrische Position in einer größeren Entfernung r. Berechnet für 
die Bahn des Hallcyschcn Kometen, mit Ausnahme des Verlaufes für r — 1 AE sind die Ergebnisse jedoch 
praktisch unabhängig von der Pcrihcldistanz. 
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Abb. 3.2 Einfluß der Diskretisierung auf die Bestimmung der nichtgravitativen Parameter in den 

äußeren Bahnbereichen 

Weicht der angenommene Verlauf g(r) erheblich von dem tatsächlichen f(r) ab, so daß am Rande 
r Um des inneren Intcrvallcs die Kometenposition durch die Diskretisierung erheblich fehlerhaft ist (Fehler 
proportional der schraffierten Fläche), muß dieser Fehler zur Darstellung äußerer Beobachtungen durch die 
berechnete nichtgravitative Bewegung in den äußeren Teilen kompensiert werden. Da die nichtgravitative 
Beschleunigung und die Anzahl der Beobachtungen mit der heliozentrischen Distanz erheblich abnehmen, 
kann dies zu erratischen Ergebnissen für die nichtgravitativen Parameter der äußeren Bahnteile führen. Ist 
die Abweichung berechneter minus beobachteter Ort bei ru m beispielsweise positiv (wie in der Abbildung), 
und hat man zur Bestimmung der äußeren Parameter nur Beobachtungen knapp außerhalb r^ m , mithin mit 
negativer Abweichung zur Rechnung, würde man einen erheblichen negativen Wert für die äußeren Parameter 
erhalten. 



allgemeiner aber auch durch eine Asymmetrie von j\, was aber nur mit umfangreichen Beobachtungen aus 
den äußeren Bahnteilen klärbar ist. 

Soll die Bahn in mehrere Teile unterteilt werden, für welche die dortigen nicht gravitativen Parameter als 
zusätzliche Unbekannte bestimmt werden sollen, so sind dazu zwei Erscheinungen ausreichend, wobei aber 
eine ausreichende Verteilung an Beobachtungen Voraussetzung ist. Die Parameter A\,A % 2 mi Bahnabschnitt 
i sind hauptsächlich durch die ckliptikalcn Längen, die A\ durch die Breiten in dem betreffenden Gebiet 
bestimmt. Bei zwei Erscheinungen hat man für jedes Bahnteil zwei beobachtete Längen, wodurch die zu- 
gehörigen A\ und A\ bestimmt sind. Für die A^ hat man durch die jeweils zwei Breiten sogar überschüssiges 
Beobachtungsmaterial. War die Pcrihclzcit bei beiden Erscheinungen zur gleichen Jahreszeit, sind Erd- und 
Kometenort sehr ähnlich und damit auch die Bcdingungsglcichungcn. sodaß A\ und A 2 nur schlecht sepa- 
riert werden können. Anschaulich wird der Kometenort nach einem Umlauf von beiden Erdpositionen aus 
lokalisiert. Im Allgcmeinfall sind keine erheblichen Korrelationen zu erwarten. 

Eine dritte Erscheinung benötigt man nur, weil sonst die Umlaufszcit nicht getrennt von ihrer säkularen 
Änderung berechnet werden kann, also ein Parameter zu wenig. Auch wegen der in der Umlaufszcitändcrung 
enthaltenen Information über eine mögliche Asymmetrie der radialen Kräfte ist eine dritte Erscheinung 
unerläßlich und kann auch nicht etwa durch Verzicht auf eine Unbekannte ersetzt werden. Dazu ist aus 
einer dritten Erscheinung jedoch nur sehr wenig an Information nötig. Sogar eine einzelne Beobachtung 
würde ausreichen, ohne die Bestimmbarkeit der Parameter in den verschiedenen Bahntcilcn ungünstig zu 
bccinfiußcn. Im Gegensatz zu einer Überzahl an Erscheinungen schaden jedoch viele Beobachtungen aus der 
dritten Erscheinung nicht, sondern tragen noch zur Genauigkeit bei. 

7. Bei einer Unterteilung der Bahn ist in der Praxis zu beachten, daß die Kräfte eine gewisse Zeit wirken 
müssen, um meßbare Positionsänderungen hervorzurufen. Genaugenommen erhält man die Kräfte in einem 
Bahnstück nicht aus den dortigen Beobachtungen, sondern aus solchen in erheblich größerer heliozentrischer 
Distanz. 

Dies ist der Grund, warum in der Praxis die explizite Berechnung der nichtgravitativen Kräfte für 
verschiedene Bahnteile bei den meisten Kometen nicht möglich ist. Es fehlt an Beobachtungen insbesondere 
in den äußeren Bahntcilcn. Meist liegen nur Beobachtungen bis zu 1 AE über das Pcrihcl hinaus vor. Die 
Unbekannten gehen daher zwar prinzipiell gut separierbar, aber vom Betrag her viel zu klein gegenüber 
sonstigen Ungcnauigkcitcn in die Beobachtungen ein. Gezielte Beobachtungen einzelner Kometen in den 
äußeren Bahntcilcn wären daher notwendig. 

8. Die Verläufe nach Stil 1 und Stil 2 fallen stark logarithmisch ab. Ist der tatsächliche Verlauf erheb- 
lich anders als der angenommene, können sich bereits durch die fehlerhafte Diskrctisicrung der Bewegung 
in den inneren Bahntcilcn Abweichungen ergeben, zu deren Ausgleich die äußeren Parameter erratische 
Werte annehmen müssen. Falls die Beträge der Parameter für verschiedene Bahnteile von unterschiedlicher 
Größenordnung sind, sollte erst ein günstigerer kontinuierlicher Verlauf ermittelt werden, etwa nach Stil 1 
mit anderen Werten für C und a (siehe Abb. 3.2). 

Zusammenfassend läßt sich daher für die Durchführung der Rechnungen folgendes sagen: 
Für die Berechnung des Verlaufes der nichtgravitativen Kräfte sind Beobachtungen aus drei Erschei- 
nungen des Kometen optimal. Vier sollten nur verwendet werden, wenn auch B 2 mitbestimmt wird und 
sein Betrag klein ist. Kometen mit einer ganzjährigen Umlaufszcit oder großen zeitlichen Veränderungen 
der nichtgravitativen Kräfte sollten vermieden werden. Bei der Unterteilung der Bahn sollte man sich an 
Verteilung und Gesamtgewicht der Beobachtungen in den äußeren Bahntcilcn unter Berücksichtigung der 
Pcrihcldistanz und von Abb. 2.1. orientieren. Gegebenenfalls sollte man vor der Ableitung der Parameter 
einen passenderen Verlauf g(r) suchen. 

3.2. Die Durchführung der Rechnungen 

In diesem Abschnitt soll der wesentliche Gang der Rechnungen aufgeführt werden. 

Die Planeten können wahlweise simultan mit dem Kometen integriert oder von einer Datei cingclcscn 
werden. Diese Datei wird in derselben Weise von dem Programm erzeugt, sodaß bei Verwendung dersel- 
ben Initialwcrtc für die Planeten beide Methoden gleichwertig sind. Bei kleineren Rechcnanlagcn geht das 
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Einlesen der Planctenkoordinaten wesentlich schneller, als sie berechnet werden können. Andererseits ist 
man durch das Verwenden einer Datei auf ein Vielfaches ihrer Schrittweite festgelegt, und benötigt die Datei 
erheblichen Speicherplatz. Die Planctenkoordinaten für dieses Jahrhundert wurden im Intervall von 0, 4 und 
0,8 Tagen integriert und als Datei angelegt. Für die meisten Anwendungszwecke ist dies ausreichend. In 
anderen Fallen, hier etwa bei dem Hallcyschcn Kometen, wurden die Planeten mitintegriert. 

Zuerst werden die ggf. verwendeten Startwerte für die großen Planeten, die Elemente des Kometen, die 
Sternwarten, die Beobachtungen sowie eventuelle Bedingungen an die Verbesserung der Parameter oder an 
deren mittlere Fehler oder Korrelat ionskoeffizienten cingclcscn und auf offensichtliche Fehler hin überprüft, 
und einige Vorarbeiten wie die Umwandlung der Elemente in rechtwinklige Initialwcrtc (§2.2), die Korrektur 
der Beobachtungen auf das FK^-Systcm (§2.5.3), die Berechnung der Position des Beobachters (§2.5.2). die 
Umwandlung der Zeit in Ephcmcridcnzcit, die Berechnung der Ablcitungsmatrix der zu verwendenden Para- 
meter nach den rechtwinkligen Initialwcrtcn (§2.8.2) & c . durchgeführt. Anschließend werden die Planeten, 
falls nicht von der Datei einzulösen, von ihrer Epoche zur Oskulationscpochc der verwendeten Komctcncle- 
mentc integriert. 

Dort wird der Komet hinzugefügt, ebenso für jeden zu bestimmenden Parameter der Bcwcgungsglci- 
chungen ein Pseudokörpcr zur Berechnung der Dificrentialquoticntcn gemäß §2.4 . Von dort an wird zunächst 
zeitlich vorwärts, anschließend zeitlich rückwärts über den Zeitraum der Beobachtungen integriert. Für jede 
Beobachtung wird iterativ für ihre um die Lichtlaufzcit verminderte Zeit die Position sowie die Ableitung 
derselben nach allen Parametern interpoliert. Daraus folgen die Abweichungen zwischen Beobachtung und 
Theorie sowie die Bcdingungsglcichungcn zur Verbesserung der jeweils zu verwendenden Parameter und 
Bcobachtungs großen (§2.8.2). In Anschluß daran wurden die Normalglcichungcn gebildet und nach der Me- 
thode der Kleinsten Quadrate aufgelöst (§2.8.1). Über die Ablcitungsmatrix wurden die Korrekturen der 
rechtwinkligen Initialwcrtc zur Epoche berechnet und an die alten Werte angebracht, womit die verbesserten 
Werte erhalten worden sind. Die ihnen entsprechenden oskulicrenden Elemente wurden berechnet (§2.2) und 
ausgedruckt. 

Dies wurde mehrfach wiederholt, bis eine vorgegebene Anzahl erreicht oder Änderung in der Rcstfeh- 
lcrquadratsummc unterschritten wurde. Die Konvergenz war auch bei vielen Parametern sehr gut. In den 
meisten Fällen waren nur zwei Iterationen nötig und konnten die beim ersten Mal berechneten Bcdingungs- 
glcichungcn beibehalten werden. Falls auch mittlere Fehler der Ephcnicridc oder oskulicrenden Elemente für 
andere Zeiten als der Epoche erwünscht waren, wurden die Ableitungen auch beim letzten Durchlauf noch 
einmal mit integriert (§§2.4,2.8.2). 
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4. Der Halleysche Körnet 

4.1. Der Stand der Berechnungen der Bahnbewegung 

Über die früheren Arbeiten zur Bahnbestimmung des Hallcyschcn Kometen wurde bereits in §1 berichtet. 
Hier soll nun ein Überblick über die Arbeiten der letzten Jahre gegeben werden. Diese Arbeiten spiegeln 
gleichzeitig den aktuellen Stand der Kenntnisse und Erforschung der nicht gravi tativen Kräfte wieder. 

Besondere Anstrengungen, die Bahn des Kometen zu berechnen, wurden in Hinblick auf den Vorbeiflug 
der Raumsonden Vega l,Vega 2 am 6. und 9.3.1986 und Giotto am 14.3.1986 seitens oder im Auftrag 
der Welt raumbehör den durchgeführt. Diese Arbeiten sind zwar weitgehend technischer Natur mit dem 
Hauptanliegen, die Position des Kometen für den Zeitpunkt des Vorbeifluges der Sonden vorauszuberechnen. 
Sie sind aber nicht ganz ohne wissenschaftlichen Wert und haben außerdem zweifelsohne einen Platz in der 
Geschichte der Erforschung der Bahnbewegung des Kometen verdient, sodaß auch auf diese Arbeiten kurz 
eingegangen werden muß. 

Eine Vorausberechnung des gegenwärtigen Pcrihcldurchgangcs erfolgte 1982 durch V. V. Sawtschenko 1 . 
Am 16. Oktober 1982 wurde der Komet 1"5 von seinen Vorausbcrcchmmgcn 2 entfernt wicdcrcntdcckt K Der 
Komet stand Mitte November 1985 in Opposition, für die Zeit Oktober bis Dezember konnte mit zahlreichen 
Beobachtungen gerechnet werden. Der Pcrihcldurchgang erfolgte am 9. Februar 1986, nur drei Tage zuvor 
stand der Komet in oberer Konjunktion mit der Sonne und wurde davor bis zum 24. Januar, anschließend 
wieder ab dem 15. Februar beobachtet. Am 11. April erreichte der Komet mit 0A2AE seine größte Annäherung 
an die Erde, um diese Zeit stand er erneut in Opposition. Daher waren hauptsächlich Beobachtungen in der 
Zeit Oktober bis Dezember 1985 und März bis Juni 1986 zu erwarten. 

Die Arbeiten bei ESOC in Darmstadt wegen dem Giotto-Projekt erfolgten durch F.Hechler, T.A.Morley, 
R.E.Münch, H.Müller, G.Schwehm und andere. 

Die hauptsächlichen Ergebnisse wurden in vier Arbeiten veröffentlicht 4 . 

Im ersten Teil wurden 700 Beobachtungen 1759 bis Februar 1983 diskutiert. Diese waren von D.K. Yeo- 
rnans für seine Berechnungen verwendet und an ESA geliefert worden, waren jedoch nicht neu reduziert 
und daher für genaue Rechnungen unbrauchbar. Ein Teil der erheblichen Mängel seines Bahnpro grammes 
wird aufgeführt und ein neues Programm der Autoren beschrieben. Unzulänglichkeiten der Modellierung 
der nichtgravitativen Kräfte werden erörtert, für den light shift wird die Funktion S — S\ + ^[f— ) — 1] 
vorgeschlagen, wobei aus den Beobachtungen von 1909-11 Si — 1160 km, S 2 — —92 km berechnet wurde 5 . 
Erste Bahnrechnungen aus Beobachtungen seit 1759 und 1835 wurden gemacht. 

Im zweiten Teil wird zunächst über die in Auftrag gegebene 6 Neureduktion der älteren Beobachtungen 
berichtet. Die Beobachtungen 7 von F.G.W.Struve in Dorpat und J.Encke in Berlin wurden als brauchbar 
beurteilt, die von Kreil in Mailand und C.L. v.Littrow in Wien ebenfalls reduziert, aber nicht verwendet. Wei- 
tere Bahnrechnungen mit Beobachtungen seit 1759 und 1835 wurden durchgeführt. Es wurde befunden, daß 
zur Darstellung der Beobachtungen von 1759 eine säkulare Änderung B 2 nötig ist und B 2 — +0.0025 ±0.0007 
erhalten. Die erratischen Anomalien der Kräfte wurden erörtert. Auch wurde A 3 zu —0.031 ±0.012 ermittelt. 
Ein light shift gemäß S — Sq(^) 2 mit S — 200 km wird in den scheinbaren Verlauf umgerechnet. Es wird 
erörtert, daß ein light shift von sonstigen systematischen Fehlern durch den auftretenden Vorzeichenwechsel 
bei der Erdannäherung bis auf 0, 15 AE am 19.5.1910 verifiziert ist 8 . 

1 Kiev Komet Tsirk. 295(1982) 

2 oder 8" von denen von D.K.Yeomans, Astron., Journ. 82,439 

3 IAU-Circ. 3737(Oktober 1982) 

4 Giotto Flight Dynamics Report, No.l, Comct Hallcy Orbit Determination. Darmstadt, pt.l(Februar 1984), 
pt.2(Oktober 1984), pt.3(Januar 1986), pt.4(Mai 1986) 

ü Diese systematischen Fehler waren allerdings kein light shift, s.u. 
S.F.RÖser, siehe auch §4.3 
siehe dazu §4.3 

Der Verfasser hat dazu die Meinung vertreten, daß dies eher durch eine Verschiebung der verwendeten Ephemeride 
der Erde gegenüber dem optischen Bezugssystem (s. §2.5.3) bedingt sein dürfte. In den eigenen Berechnungen traten 
derartige systematische Fehler nicht auf 
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Im dritten Teil der Arbeit wird über den Stand der Ncnrcdnktioncn berichtet. Auch die Beobachtun- 
gen von F. W.Bessel in Königsberg und F. B.G.Nicolai in Mannheim wurden als brauchbar erwogen. Ein 
erheblicher Teil der Beobachtungen 1909-11 war inzwischen neu reduziert worden. Eine Statistik über die 
Beobachtungen wird erstellt. Aus der gegenwärtigen Erscheinung liegen inzwischen über 1900 Beobach- 
tungen vor. Seit Dezember 1985 traten 9 systematische Fehler von über — 0"1 in Deklination auf. Neue 
Bahnclcmcntc werden angegeben, die Korrelation zwischen A\ und T wird verifiziert. 

Mit dem vierten Teil wird nach dem Vorbeiflug der Raumsonden über die Endphasc der Bahnrechnun- 
gen bei ESOC berichtet. Bis Januar 1986 waren über 6000 Beobachtungen eingegangen, davon wurden 90% 
verwendet 10 . Die Vorausbcrcchnungcn der Elemente des Kometen und seiner Position für März 1986 waren 
seit Dezember sehr konstant geblieben. Nach der Konjunktion tauchte der Komet jedoch mehrere " entfernt 
auf. Zunächst wurde dies als ein Einfluß der Refraktion in den horizontnahen Beobachtungen gewertet, 
jedoch auch bis Ende Februar verblieben 2" Inkonsistcnz zur Zeit vor der Konjunktion. Die Differenz zu 
den Ergebnissen der anderen Arbeitsgruppen war gering, jedoch wurde erkannt, daß dies nichtsbesagend ist, 
da dort der light shift in ähnlicher Weise als Funktion des heliozentrischen Abstandcs S(r) berücksichtigt 
wurde. Neben der allgemeinen Lösung wurden die unter folgenden Voraussetzungen erhaltenen Positionen 
des Kometen am 14. März 1986 angegeben und mit den später durch Vcga 1 und Vcga 2 erhaltenen Werten 
verglichen: 11 A. Verwendet wurden neben Beobachtungen 1835-1911 nur Beobachtungen des Observatoriums 
Calar Alto bis Januar 1986. Dies ergab eine schlechte Lösung. B. ebenso, zuzüglich aller Beobachtungen 
seit Februar 1986. Ergab eine bessere Lösung, die aber erhebliche systematische Fehler und andere Mängel 
aufwies. CD. Empirisches und thermisches Modell 12 für die nichtgravitativen Kräfte. Schlechter als die Stan- 
dardlösung. E. Nur Beobachtungen aus dieser Erscheinung. Sehr schlecht, der Fehler betrug über 3000 km. 
F. Diejenige Lösung des Verfassers 13 , die den light shift in der in §2.7 beschriebenen Weise berücksichtigt. 
Weitere Versuche hinsichtlich des light shiftes wurden gemacht. Die Berücksichtigung des light shiftes als 
S(r) hatte die Position des Kometen in etwa 300 km größerer heliozentrischer Distanz und 140 km nördlicher 
gegenüber der Standardlösung ergeben, während er sich tatsächlich 800 km näher an der Sonne und 100 km 
südlicher befand. Nachträgliche Rechnungen aus Beobachtungen bis Ende März unter der Annahme, daß 
der light shift nur die Beobachtungen der gegenwärtigen Erscheinung betrifft, ergaben ein wesentlich bes- 
seres Ergebnis. Man kann zusammenfassend sagen, daß bei Verwendung von Rcktaszcnsion und Deklination 
sich der light shift nur sehr unbefriedigend berücksichtigen läßt und die Ergebnisse sehr von den Annahmen 
abhängen. Man muß sich dann weitgehend mit den systematischen Restfchlcrn abfinden und hoffen, daß ihr 
Einfluß nicht zu groß ist, was im Übrigen auch durch die Anzahl der Gewichte der Beobachtungen beidseitig 
einer Konjunktion beeinflußt werden kann. 

In einer anderen Serie wurden verschiedene Detailfragen untersucht. 

Eine der ersten Arbeiten zur Bahnbestimmung des Kometen 14 befaßt sich mit der Genauigkeit, mit 
der die Position des Kometen zur Zeit des Vorbeifluges berechnet werden kann. Es wurde abgeschätzt, 
daß bei ausschließlicher Verwendung erdgebundener Beobachtungen die Fchlcrellipsc der Kometenposition 
in der Zielebene von Giotto eine große bzw. kleine Halbachse von 57 km und 15 km. zusammen mit den 
Beobachtungen von Vcga 1 und Vcga 2 21 km und 7 km hat. 

Später gelangte man zu der Auffassung, daß die nichtgravitativen Kräfte und der light shift bei den Be- 
rechnungen berücksichtigt werden müssen. In einem Nachtrag 15 erfolgt eine Erwägungen der zu erwartenden 
Verteilung der Beobachtungen bis März 1986, der Bcobachtungsfchler, der Unsicherheiten durch einen even- 
tuellen light shift und in den nichtgravitativen Kräften, sowie der Genauigkeit der von den Vega-Sondcn 
erhofften Positionsbestimmung des Kometen. Daraus erhielt man für die Halbachsen der Fehlcrellipscn bei 
Verwendung crdgcbundcncr Beobachtungen 531 km und 216 km, bei Hinzunahme der Vcga-Datcn 81 km und 



in Übereinstimmung mit den Rechnungen des Verfassers 

darunter auch 22 vom Verfasser erhaltene, s. §4.4 

Diese aus Beobachtungen bis zum 15 ... 20. Februar 1986 erhaltenen Ergebnisse sind auch von S.F.IiÖseT. Sterne und 

Weltraum 25(1986), 592, wiedergegeben und erläutert 

12 P.Mahr, F.Hechler, ESOC OAD Working Paper 308(Dezember 1985) 

13 unter Verwendung der Beobachtungen bis zum 23.2.1986, mitgeteilt an ESOC am 26.2.1986, Nr. 4" in Tab. 4.7 

14 Giotto Study Note 37(März 1983) 

15 (Mai 1983) 
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54 km 1(i . 

In einer weiteren Arbeit 17 wurde sehr umfangreich die Genauigkeit der vorliegenden Beobachtungen 
diskutiert, um ihre pauschale sowie die bcob acht er abhängige Güte zu überblicken. 

Anschließend wurden 32 mikrometrische Beobachtungen von 1910 aus Cordoba 18 und die Beobachtungen 
von Struve in Dorpat 19 mit modernen Anschlußsternörtcrn neu reduziert und in beiden Fällen merkliche 
Korrekturen festgestellt, die die systematischen Rcstfchlcr verringerten. 

Später 20 wurden nochmals 104 Beobachtungen aus der Zeit Oktober 1982 bis Februar 1985 analysiert, 
und die vorliegenden Fchlerabschätzungcn mehrerer Autoren verglichen 21 . 

Eine andere Arbeit 22 befaßt sich mit dem light shift. Zwischenzeitlich war man bezüglich der ver- 
wendeten Erdkoordinaten auf die Theorie DE118 übergegangen, wurde deren Differenz zum FK4-Systcm 
berücksichtigt, und war ein Großteil der Beobachtungen 1909-11 neu reduziert worden: nun war darin kein 
signifikanter light shift mehr festzustellen. Mittlerweile trat allerdings ein systematischer Effekt in den neuen 
Beobachtungen auf. Die Korrelation zwischen Sq und A^ wird erörtert. Der Einfluß des light shiftes auf die 
Ziclgcnauigkeit der Sonde wird untersucht. Neue Fchlcrcllipscn mit der aktuellen Zahl an Beobachtungen 
bis Ende 1985, aber nach wie vor zu geringer Zahl bis Mitte März 1986, werden berechnet. Bei einer Un- 
sicherheit des light shiftes von ±500 km bei r — 1 AE sind die Halbachsen 214 fem und 111 km, ohne light 
shift 121 km und 46 Am 23 . 

Inzwischen sind die im Auftrag von ESOC neu reduzierten älteren Beobachtungen veröffentlicht worden; 
eine Arbeit, die zweifelsohne großen Wert für alle nachfolgenden Untersuchungen der Bewegung des Kometen 
besitzt 24 . 

In Hinblick auf die Sonden Vcga 1 und Vcga 2 beschäftigten sich mehrere Arbeitsgruppen mit der 
Berechnung des Kometen. 

Bei der Raumfahr tbchör de Intcrkosmos in Moskau wurden Bahnbcrcchmmgcn von Yu.F.Kolyuka, 
S.M.Kudryavtsev, V.P.Tarasov und V.F.Tikhanov durchgeführt. Dabei wurden die nichtgravitativen Kräfte 
nach Stil 2 und relativistische Effekte berücksichtigt. Verwendet wurden 310 Beobachtungen der Erscheinung 
1759 {ß 50"), 2136 Beobachtungen 1835-6 (20") und 4052 Beobachtungen 1909-11 (1"5 ... 18" 5) sowie die 
im Laufe der Zeit eingehenden neuen Beobachtungen. Für eine Rechnung mit 183 Beobachtungen bis Ende 
Januar 1985 werden oskulicrende Elemente und Initialwcrte für die Epoche des Pcrihcldurchgangcs sowie 
die nichtgravitativen Parameter angegeben. Die Abweichungen der Rückrechnung zu den Beobachtungen 
betrugen 1682 0^05, 1607 d 25 und 1456 l d l. Abgeschätzt wird, daß sich die Positionsungcnauigkcit für 
März 1986 ab November 1985 erheblich verringert 25 . 

Später 26 veröffentlichen die Autoren Ort und Geschwindigkeit des Kometen für den 6. und 9. März 1986, 
wie sie aus den astrometrischen Daten sowie durch die Beobachtungen der Raumsonden Vcga 1 und Vcga 
2 erhalten wurden, außerdem eine Statistik über Zeitraum, Anzahl und Güte der Beobachtungen von den 
einzelnen Sternwarten und eine Abbildung der Rcstfchlcr der Einzelbcobachtungcn des Kometen durch die 
Raumsonden. 

Sehr ähnliche Berechnungen führte die Arbeitsgruppe von E.L.Akim, V.V.Sawtschenko, V.A.Stepan- 
yants am Institut für Kosmische Forschung in Moskau durch. In einer ersten Arbeit 27 werden die Grund- 



Diese Abschätzungen litten unter dem Mangel um das zehnfache zu gering angenommener Beobachtungen. Anderer- 
seits wurde ein starrer Verlauf des light shift k angenommen, was eine zu genaue Extrapolation der Position aus der 

vorangegangenen Bewegung impliziert 

17 ibid. 45(Oktober 1983) 

18 ibid. 46(November 1983) 

19 ibid. 48(Juli 1984) 

20 ibid. 54(Marz 1985) 

darunter auch die des Verfassers, die sich durch wesentlich höhere Zahl angenommener Beobachtungen auszeichnete 
22 ibid. 57(Dezember 1985) 

Eingegangen wird u.a. auch auf den Vorschlag zur Berücksichtigung des light shiftes nach §2.7 und auf die Fehlerrech- 
nungen des Verfassers 

24 S.F.Röser, Astron. Astroph.Suppl. 71(1987), 363 

25 Pisma Astron. Zh. 11(1985), 778 

26 ibid. 13(1987),630 

27 Dokl.Akad.Nauk., Ser.Mat.Fiz. 272(1983),1091 
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lagen und erste Ergebnisse der dortigen Berechnungen dargelegt. Spätcrc Ergebnisse befinden sich in der 
Publikationsscric von ESOC. Insgesamt gesehen wurden die Berechnungen ähnlich wie die Standardlösungcn 
der anderen Gruppen durchgeführt (nicht gravitative Kräfte vom Stil 2, Verwendung von Rcktaszcnsion und 
Deklination, light shift als Funktion der heliozentrischen Distanz) und waren die Ergebnisse sehr ähnlich, 
die Fchlercllipscn jedoch deutlich größer. 

Am Institut für Theoretische Astronomie Leningrad (ITA) wurden Berechnungen von Yu.Y.Batrakov, 
N.A.Belyaev, Yu.D.Medvedev und Yu.A.Chernetenko durchgeführt. Aus Beobachtungen 1835 bis 1985 wird 
die Bahn des Kometen mit nicht gravitativen Kräften einerseits nach Stil 2, andererseits nach der Impulsthco- 
ric berechnet. Ein Vergleich mit der Pcrihclzcit von 1759 wird angestellt, für 1986 differieren die Pcrihclzcitcn 
beider Modelle um rf 02 28 . Spätcrc Ergebnisse 29 mit beiden Modellen unter Verwendung von Beobachtun- 
gen bis Januar und Juni 1986 differierten in der Position für März 1986 um etwa 200 km. Der light shift 
wurde durch S(r) — Sq/t modelliert, wobei sich So — 1100 km ergab. Eine Rückintegration bis 1759 wurde 
durchgeführt und eine völlige Übereinstimmung mit den Ergebnissen des Verfassers gefunden. Die Autoren 
folgerten, daß das Impulsmodcll eine gleichwertige Darstellung der Beobachtungen und Vorausberechnung 
ergibt wie kontinuierliche Kräfte nach Stil 2. 

Untersuchungen von allerdings mehr theoretischem Interesse wurden von A.A.Suchanov und P.E.Elyas- 
berg am Institut für angewandte Mathematik in Moskau durchgeführt'* . Die Autoren schlagen statt der 
Methode der Kleinsten Quadrate ein anderes Ausglcichsprinzip vor. Dies läuft darauf hinaus, unter An- 
nahme einer gegebenen Bcob acht ungs Unsicherheit den maximal möglichen Fehler bestimmter Unbekannten 
besonderen Interesses (in vorliegendem Fall, der Position des Kometen im März 1986) anstatt des mittleren 
Fehlers der Beobachtungen zu minimieren, indem eine beschränkte Anzahl an Beobachtungen' 11 (im Idcalfall 
genau so viele wie Unbekannte) an geeigneten Stellen der geozentrischen Bahn herausgesucht werden. Die 
Anwendung dieses Verfahrens liefert zu einer vorgegebenen Unbekannten für jeden Punkt der geozentrischen 
Bahn gewissermaßen das Gewicht, wie günstig dortige Beobachtungen in die Unbekannte eingehen, und den 
maximal möglichen Fehler derselben bei Verwendung einer ausgewählten Menge an Beobachtungen. Der 
light shift wird als Bcob acht ungs fehler betrachtet und zu S 2 = S 2 -\- (^S c ) 2 mit So — 3" und S c — 5000 km 
angesetzt. Dabei wurde ausgegangen von systematischen Fehlern von 30" nahe der Konjunktion 1910 und 
wurde für Dezember 1985 über 5", für April 1986 8" light shift prognostiziert'*' 5 . Für verschiedene Unbe- 
kannte wurde der Zeitraum besonders günstigen Bcobachtcns berechnet, ferner die zeitliche Entwicklung des 
maximalen Fehlers einiger Unbekannter. Zusammenfassend würde durch Beobachtungen bei der Opposi- 
tion im November 1985, die Genauigkeit der Pcrihclzcit von 46 m auf 3 m , nach der Konjunktion im Februar 
dagegen nur unwesentlich auf 2 m zurückgehen' 54 . Die Genauigkeit der Koordinate y im März bleibt etwa 
konstant bei 1500 fem. diejenige von x dagegen geht bei den Konjunktionen im November 1985 und April 
1986 von 3400 km auf 2800 km bzw. 1300 km zurück. Bei einer zweiten Rechnung mit weniger Beobachtun- 
gen wurden etwa im Verhältnis der Gewichte 35 geringere Fehler erhalten. Es ist nicht bekannt geworden, ob 
das Verfahren später auch auf die Balmrechnungcn angewendet worden ist 36 . 

Besonders wertvoll sind die Arbeiten von G.Sitarski und K.Ziolkowskr' 7 . Hierbei ging es weniger um 
eine möglichst gute Darstellung der Beobachtungen der gegenwärtigen Erscheinung des Kometen, als um die 
seiner langzeitigen Bewegung. Neben einer ausgewählten Anzahl an Beobachtungen 1835 bis 1986 verwenden 
die Autoren die beobachteten Pcrihclzcitcn der früheren Erscheinungen. Dies sind diejenigen Pcrihclzcitcn, 

28 Kinem. i physika tel 2(1986), 92; Kiev Komet Tsirk. 353(1986) 

29 ESA SP 250(1986) Vol.3,295 

30 Kosm.Issl. 11(1983),868; siehe dazu auch idem.,T.Morley,E.Hechler, ESA Journal 8(1984) ,19 
oder in der Praxis stattdessen Normalorte 

offensichtlich lag auch bei diesen Berechnungen eine erhebliche Verschiebung zwischen dem System der Erdkoordinaten 

und Beobachtungen sowie der berechneten Bewegung des Kometen vor 

ein Vielfaches dessen was tatsächlich beobachtet wurde 

was in erheblichem Gegensatz zur Erfahrung und Rechnung steht 

im Sinne klassischer Statistik 

Nach Meinung des Verfassers hat es auch keinen besonderen Wert für eine Beobaclitmigsstrategie, weil die Ergebnisse 

weitgehend trivial sind - es empfehlen sich etwa Beobachtungen bei großen Erdannäherungen oder an den seitlichen 

Enden der Oppositionsschleifen oder anderen Punkten, an denen die Geschwindigkeit der Zunahme der Determinante 

zur Bestimmung der Parameter möglichst schnell zunimmt 

37 ESA SP 250(1986) Vol.3,299; Astron.Astroph. 187(1987),896 
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die sich, unter Verwendung der sonstigen Elemente gemäß den Rückrechnungen, durch Anpassung oder 
Schlußfolgerungen aus den Informationen über die einzelnen Erscheinungen ergaben. Ihre Verwendung ist 
zweckmäßiger als die der Informationen selbst, da diese oft in schlecht numerisch formulierbarer Form vor- 
liegen, nur separat sorgfältig genug diskutiert werden können, und die Perihclzcitcn nicht von der Stellung 
des Kometen zur Erde abhängen, was besonders bei geringer Entfernung zu großen Schwierigkeiten führen 
könnte. Berücksichtigt wurden die Erscheinungen zurück bis 12 v.Chr in einer und bis 240 v.Chr. in ei- 
ner weiteren Rechnung. Die Bahnelemcntc wurden berechnet einerseits für nicht gravitative Kräfte ohne 
säkularer Änderung, andererseits für B 2 — —0,00495, wie es der Verfasser aus Beobachtungen 1607 bis 1985 
erhalten hatte (s.u.). Angegeben werden die Bahnelemcntc und nichtgravitativen Parameter für 1835 sowie 
die Rcstfchlcr in den einzelnen Erscheinungen. Die Elemente mit der angenommenen säkularen Änderung 
Bi ergeben die beste Darstellung. 

Diese Berechnungen stellen die langfristigste Anpassung der Bewegung eines Himmelskörpers an die 
Beobachtungen dar, die wir besitzen. 

Nicht unerwähnt bleiben sollen die Ergebnisse von D.K. Yeomans. Er berechnete fortlaufend neue Ele- 
mente des Kometen für die Beobachter' 58 . Es handelte sich aber lediglich um routinemäßige Berechnung der 
Elemente und der beiden nichtgravitativen Parameter ohne weitergehendem Wert. 

Ebenso wurden Fchlcrrcchnungcn durchgeführt' 19 . Angenommen wurden 50 Beobachtungen für Anfang 

1985, 60 Beobachtungen für August 1985 bis Januar 1986 und 6 Beobachtungen für den 5. bis 10. März 

1986. Der mittlere Fehler der Beobachtungen wurde zu 4", derjenige von A\ und Ai zu 20% ihres Wertes 
angenommen. Der zeitliche Verlauf der mittleren Fehler in radialer, transversaler und normaler Richtung zur 
Balmbcwcgung wurde abgebildet. Der mittlere Fehler der radialen Komponente geht demnach von Oktober 
bis Dezember 1985 von über 5000 km auf 500 km zurück, der in der transversalen Komponente im November 
1985 von 2200 km auf 400 km und der in der normalen Komponente von September bis Dezember 1985 von 
500 km auf 100 km. Die Fchlcrellipsc im März 1986 hat Halbachsen von 519/161 km. bei Reduzierung des 
mittleren Fehlers auf die Hälfte 371/102 fem, bei doppelter Zahl an Beobachtungen dagegen 298/80 km, 
bei ursprünglicher Annahme über die Beobachtungen, aber mit einem light shift 5 — 1000 km j r 2 
540/161 km 40 . Nicht nachvollzich.cn kann man die vertretene Meinung, daß der light shift im Februar kaum 
etwas ausmacht, weil man wegen der geringen Elongation etwa in radialer Richtung, mithin nur einen kleinen 
Teil von ihm sieht. 

Bei späteren Fchlcrrcchnungcn 41 wurden praktisch dieselben Annahmen wie bei ESOC gemacht und 
auch nahezu dieselben Ergebnisse erhalten, für den Fall einer Unbestimmtheit des light shifts S(r — 1 AE) 
von ±500 km etwa die Halbachsen der Fchlcrellipsc zu 342 km und 92 km. Bei der letzten Prognose 42 wurde 
eine Fchlcrellipsc mit 22 km und 8 km Halbachsen angegeben, was völlig illusorisch war 43 . 

4.2 Eigene Arbeiten 

Der Verfasser hat unmittelbar nach der Wicdcrcntdcckung des Kometen mit seiner Bearbeitung begon- 
nen. Hierbei sollte die Bewegung des Kometen in mehreren Aspekten gründlich untersucht werden, insbe- 
sondere hinsichtlich seiner langzeitigen Bewegung sowie des Verlaufes der nichtgravitativen Kräfte während 
eines Umlaufes 44 . 



IAU-Circ. 3767(1983),4156(1985); IHW Newsl. 5(1984),71,6(1985),41,7(1985),18,8(1986),55, 9(1986),36, 
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D.K. Yeomans. R.A.Jacobson,B.G. Williams. P.W.Chodas, in: Cometary Astrometry [Hrsg. T.I.Gombosi]. 

Budapest 1983. 3,95 

Nach Auffassung des Verfassers beruhen diese Rechnungen auf völlig unangemessenen Grundlagen. Das Gewicht der 

Beobachtungen ist viel zu gering, dagegen der light shift als eine starre Funktion und damit sein Felilereinfiuß als 

erheblich zu gering angenommen 

D.K. YeomanS,P. W. Chodas, JPL Interoff.Memor. 314.6-602 (September 1985), 2 

angegeben bei ESOC pt. 4 (s.o.) Tab. 2 

siehe dazu §4.4 Pkt. d) 

anderweitige Versuche, den Verlauf der nichtgravitativen Kräfte zu berechnen, erfolgten auch bis heute nicht, mit 

Ausnahme von ESOC und ITA wurden überall auch lediglich Kräfte vom Stil 2 angewendet 



Zunächst wurden die Beobachtungen von 1835 von Struve. Bessel, Encke und Nicolai neu reduziert. Da- 
bei wurde die Auffassung gewonnen, daß lediglich die Normalortc aus Beobachtungen von Struve und Bessel 
verwendet werden sollten, viel später wurde noch ein Teil der Beobachtungen von Encke hinzugenommen 
und wurden auch diejenigen von J.Lamont in Bogcnhauscn reduziert und verwendet (s. §4.1.3). 

Sodann wurden aus 33 Normalorten 1909-1911, 36 von 1835-6, je drei von 1759 und 1682 sowie zehn 
neuen Beobachtungen verbesserte Bahnclemcntc berechnet 45 . Dabei ergab sich eine säkulare Änderung der 
nicht gravitativen Kräfte von B 2 — —0,0065 ±0,0025. In Anschluß daran wurde eine Rückrechnung bis 837 
durchgeführt. Die Korrelationen zwischen T und Ai wurden erörtert 46 . 

Über weitere Ergebnisse wurde in einigen Tätigkeitsberichten berichtet. 

Zunächst wurde bemerkt, daß in die früheren Erscheinungen erheblich etwaige Fehler der Masse des 
Uranus und Neptun eingehen. Insbesondere hat Uranus eine nur um 7% größere Umlaufszeit als der Komet, 
und befand sich bei den letzten Erscheinungen stets in der Nähe des Kometen während dessen Apheldurch- 
gang, bei früheren Erscheinungen jedoch nicht mehr. Bis 837 zurück entsprach einer Änderung von ± 50 
Einheiten der reziproken Masse von Uranus eine unkorrclierte Änderung der Pcrihclzcit um d l. Aus 37 
Normalorten 1909-11, 27 von 1835-6, je 3 von 1682 und 1759, je einem von 1607, 1301 und 837 sowie zehn 
Beobachtungen 1982 - 1983 wurden verbesserte Bahnclemcntc und die Uranusmassc bestimmt. Unter an- 
derem wurde erhalten B 2 = -0,0065 ± 0,0003 und m u = 1/23054 ± 41 47 . Die Darstellung von 837 war 
allerdings nicht gut. Die Elemente für den Zeitraum 837 bis 2209 wurden angegeben 48 . Die Berechnung der 
Massen unter Rücksicht auf den inzwischen erfolgten Pcrihcldurchgang wird der Autor sicherlich nochmals 
aufgreifen. 

Kurze Zeit später wurden die Modellrechnungen für den Wärmchaushalt und die nicht gravitativen 
Kräfte des Hallcyschcn Kometen von Rickman und Froeschle (siehe §1) veröffentlicht. Sic wurden sogleich 
für Bahnberechnungen verwendet. Das Modell für eine große Wärmeträgheit I t h — 1000 schloß sich den 
Beobachtungen am besten an, entsprechende Elemente für 1607 bis 1986 und einzelne Parameter für die 
anderen Modelle und Lösungen mit Beobachtungen ab 1835 sind angegeben, die säkulare Änderung betrug 
B — —0,0052. Die Korrelationen zwischen e,A\ und T werden erörtert 49 . 

Im Jahre 837 näherte sich der Komet auf 0, 03 AE der Erde. Er wurde in Aachen, Fulda und China beob- 
achtet 50 . Daraus läßt sich die Pcrihclzcit verhältnismäßig genau berechnen 51 . Nun wurde bemerkt, daß sich 
die Pcrihclzcit, oder konkreter der Zeitpunkt der Annäherung an die Erde, aus den diffcrcnticllcn Störungen 
noch wesentlich genauer berechnen läßt. Bereits eine Verspätung des Kometen um nur 0^04 resultiert bei 
der gut beobachteten Erscheinung 141 in einer Vcrfrühung von 15 Tagen. Daraus ergab sich die Pcrihclzcit 
zu 837 Februar 28,427 ± d 010 ET (formal ±0^004). Dies stellt eine sehr wichtige Kontrollmöglichkeit für 
alle langzeitigen Berechnungen des Kometen dar 52 . 

Später wurden noch einmal verbesserte Elemente aus 105 Normalorten und Beobachtungen 1607 bis 
September 1984 gegeben 53 . Mehrfach wurden aktuelle Elemente für die Beobachter veröffentlicht 54 . 

Ab Juli 1985 ermöglichten es die vorliegenden Beobachtungen, brauchbar nach den nichtgravitativen 
Parametern in verschiedenen Teilen der Bahn aufzulösen. In Hinblick auf die Sichtbarkeitsperioden, die 



Zu dieser Zeit stellte dies die langfristigste erreichte Anpassung der Bewegung des Kometen dar 
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Mitt. Astron. Verin.Südwestd. 23(Juli 1984), 92 

ibid. 23(November 1984), 130 
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Pcriholdistanz und die Zeitentwicklung der Kräfte auf die Position (Abb. 3.1) wurde die Bahn in drei Teile 
aufgeteilt mit den Grenzen bei r^ m — 1 AE vor und nach dem Pcrihcl. Noch nicht alle Unbekannten konnten 
signifikant bestimmt werden, insbesondere hingen die Ergebnisse für den aufsteigenden Ast der Bahn von 
den Beobachtungen 1910-11 ab. Daher wurden Bedingungen an die Auflösung gestellt, insbesondere wurden 
die A<i in den äußeren Bahntcilcn als angenommen oder wurde ihr Verhältnis zu den entsprechenden A\ 
vorgegeben. Später verbesserte sich die Situation. Aus den Parametern in den drei Bahntcilcn ließ sich 
die Lage der Rotationsachse berechnen (s.u.). Die orbitale Länge und Breite der Richtung des Nordpolcs 
ergaben sich zu l — 352°4 ± 3°3 und b — +5°5 ± 1°4. wobei allerdings der tatsächliche Fehler weitaus größer 
sein kann'''. 

Im Rahmen der Untersuchungen wurden häufig Rückrcchnungen bis 837 durchgeführt, um die einzelnen 
Elemente mit dieser Erscheinung zu kontrollieren. In Anschluß an die beschriebene Berechnung der Pcrihcl- 
zeit für 837, die einer Anpassung der Elemente bis 141 entspricht, wurde die betreffende Bahn, beruhend auf 
Beobachtungen von 1607 bis Ende 1983 und 837 um etwa d 9 korrigiert, bis 2317 v.Chr. zurückintegriert 56 . 
Dabei wurde eine Übereinstimmung mit einem von Plinius, Aristoteles und anderen 57 sowie von chinesischen 
Autoren 58 beschriebenen Kometen im Zeitraum Mitte 467 v.Chr. bis Mitte 466 v.Chr. gefunden, dessen 
Identität mit dem Hallcy'schcn Kometen schon lange vermutet wurde. Ferner liegt ein vager Bericht aus 
Mesopotamien über einen Kometen im Sommer 619 v.Chr. oder 618 v.Chr. vor 59 , der zu der berechneten 
Perihelzcit passen würde. Zeitlich vorwärts wurde bis 2284 integriert. 

Der Autor war aus Erfahrungen mit anderen Kometen lange der Ansicht, daß die Bahnclcmcnte aus 
Beobachtungen seit 1607 eine bessere Separation der Variablen und eine genauere Vorausberechnung der 
Bewegung in Pcrihclnähc ermöglicht als solche aufgrund Beobachtungen seit 1835, zumal auch die säkulare 
Vergrößerung der nicht gravitativen Kräfte von etwa 1% pro Umlauf gut übereinstimmend aus den Beobach- 
tungen von 1682, 1607, 1531, 1456 und 837 folgt 60 , entsprechend etwa einer Stunde, wovon noch etwa die 
Hälfte kurz vor dem Pcrihcl entsteht und daher in den weiter entfernten Beobachtungen noch nicht enthalten 
ist. Diese Meinung erwies sich jedoch dann als falsch. Die Fluktuationen der Kräfte in den einzelnen Er- 
scheinungen war hier offenbar bereits größer als der säkulare Effekt, sodaß überzählige Erscheinungen nicht 
mehr gut dargestellt wurden (siehe §3.1 Punkt 6). 

Die insgesamt gewonnenen Kenntnisse wurden zu einer Arbeit zusammengefaßt 61 . Nach einer Beschrei- 
bung des verwendeten Bcobachtungsmatcrialcs wurden die Zusammenhänge der verschiedenen nichtgravita- 
tiven Parameter und ihr Einfluß im Lichte der Bahnbestimmungen erörtert. Dann wurde das Verfahren zur 
Eliminicrung des light shiftes beschrieben. 

Ergebnisse von Bahnrechnungen mit Beobachtungen 1607 oder 1835 bis September 1985 unter Annahme 
nicht gravitati vor Kräfte nach Stil 2 und den fünf Modellen von Rickman- Froeschle werden gegeben. Die 
Ergebnisse waren sehr ähnlich denen der vorangegangenen Rechnungen. 

Ferner wurden die nichtgravitativen Parameter für drei Teile der Bahn (pcrihclnahcr Teil der Bahn 
sowie ab rn m — 1AE vor und nach dem Pcrihcl) berechnet. Neben allgemeinen Lösungen mit und ohne A^ 
und So wurden Lösungen unter verschiedenen Annahmen für das Verhältnis A2/A1 in den beiden äußeren 
Bahntcilcn durchgeführt. Die Ergebnisse waren noch am Rande der statistischen Signifikanz, sie deuteten 
jedoch darauf hin. daß die Kräfte in größerer Entfernung langsamer abnehmen als nach Stil 2. sowie daß Aß 
für den Bahnteil nach dem Pcrihcl erheblich größer ist. Eine auf unabhängigen Informationen beruhende 
Kontrolle war der Sachverhalt, daß das Verhältnis der nichtgravitativen Parameter in jedem der Bahnteile 
von der Rotationsachscnlagc abhängt. Die Transformation von der Richtung der nichtgravitativen Kraft 



ibid. 24(November/Dezember 1985), 150; IAU-Circ. 4115(1985) 

W.Landgraf, Dn the Motion of Comet Halley. ESTEC EP/14.7/6184 Final Report. GÖttingen 1984. Tab. 9; die 
Perihelzeiten befinden sich besser zugänglich u.a. Sterne u.Weltr. 24,597; The Heavens 66 No. 716(198.1). 4 ff bis 837. 
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S.Lubienietzky, Thcatrum Comcticum. Amsterdam 1668. 4 

Ho Peng Yoke, Vistas in Astronomy 5(1962), 142 

A.G.Pingre, ibid. 1,253 

aus der Erscheinung 1759 folgt dagegen eine Abnahme der Kräfte in derselben Größenordnung", die jedoch noch durch 
Beobachtungsfehler erklärt werden könnte 
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zu der zum subsolarcn Punkt, also dem Radiusvektor Komet — » Sonne, bildet einen Breitenkreis zur Rota- 
tionsachse 62 und der lag angle ist 6,{ unter 180°. Aus den nicht gravitativen Parametern in zwei Teilen der 
Bahn folgt daraus eindeutig die Achscnlagc und der Drehsinn, also der Rotationsvektor 64 . Die Parameter in 
einem dritten Bahnteil sind eine sehr wichtige Kontrolle. Die Anwendung ergab für die Fälle AijA\ — 0, 10 
und 0, 05 eine gute Übereinstimmung, auch 0, 2 wäre noch akzeptabel gewesen. Als Mittelwert aus verschie- 
denen Kombinationen der überzähligen Parameter wurde die oben angegebene Richtung der Rotationsachse 
erhalten. 

Durch Vermittlung des Institutes für Keilschrift forschung war zwischenzeitlich in Erfahrung gebracht 
worden, daß durch Prof. H.Hunger in Wien Keilschriften mit Bcobachtungsbcrichtcn über den Hallcyschcn 
Kometen bei seinen Erscheinungen 87 v.Chr. und 164 v.Chr. aufgefunden und übersetzt worden waren. 
Die daraufhin 65 von Hunger mitgeteilten Einzelheiten waren für 164 v.Chr. in guter Übereinstimmung mit 
den vorgenannten Rückrechnungen (Pcrihclzcit nach diesen -163 Oktober 30,1 TDB). In der kurz darauf 
erschienenen Arbeit von H .Hunger.F .R.Stephenson und K.K.C. Yau b6 kamen seine Mitautoren jedoch zu der 
Meinung, daß der Pcrihcldurchgang nach dem 9. November -163 stattgefunden haben müsse. Dem kann man 
sich nicht anschließen, vielmehr ist dieser Zeitpunkt eher der spätestmögliche. Gleichwohl wurde aber eine 
neue Anpassung der Pcrihclzcit der Erscheinung 837 durchgeführt, so daß die Pcrihclzcit bei -163 November 
8,3 TDB zum Liegen kommt. Die Rückintcgration ergab für 240 v.Chr. bereits einen Fehler von 2 Monaten, 
und die mutmaßlichen Erscheinungen 466 v.Chr. und 618 v.Chr. wurden überhaupt nicht mehr dargestellt, 
auch fanden sich keine früheren Kandidaten. Daher wurde diese Rückrechnung als eine Alternative und 
nicht als eine Revision der früheren bezeichnet, denn sehr wahrscheinlich sind daher die Beobachtungen 164 
v.Chr. unzutreffend interpretiert worden und ist die frühere Rückrechnung die bessere 67 . 

Nach dem Vorbeiflug der Raumsonden wurde unter Hinzunahme der Positionsmessungen des Kometen 
durch Vcga 1 und Vega 2 ein Großteil der Berechnungen wiederholt, diese Ergebnisse sind mit den früheren 
zusammen veröffentlicht 68 . Nun ließen sich die nichtgravitativen Parameter in den drei Bahnabschnitten mit 
Signifikanz berechnen 69 und bestätigte sich, daß sie in den äußeren Teilen größer sind als im perihclnahcn 
Bereich. 

Der Verlauf des light shiftes und der nichtgravitativen Kräfte waren weiterhin Gegenstand der Un- 
tersuchungen. Mit Beobachtungen bis August 1986 wurden erneut Lösungen unter Berechnung aller neun 
Parameter sowie unter einschränkenden Bedingungen durchgeführt™. Dabei wurden für 1835-1836 nur die 
Positionswinkcl verwendet. Die Rcstfchlcr in den Elongationcn und die Konsistenz bei der Ableitung der 
Rotationsachse dienten als Kontrolle. Demnach war AijA\ im Bereich von bis 0, 1 am wahrscheinlichsten. 
Die wahrscheinlichste Lage der Rotationsachse war nun etwa / — 320° und b — +5°. Zu den Ergebnissen 
über den light shift siehe §2.7 . 

Es hatte sich außerdem ergeben 71 , daß ab Anfang 1984 Berechnungen des Kometen zugunsten des 
Giotto-Projcktes durchgeführt wurden 72 . Zu diesem Zweck erfolgten neben der Berechnung aktueller Bahn- 
clcmcntc auch Abschätzungen der Positionsgenauigkeit für Mitte März 1986. 

Die ersten Fchlcrrcchnungcn 73 erfolgten Anfang 1984. Das aktuelle Fehlcrellipsoid hatte damals bei Ver- 
wendung von Beobachtungen ab 1835 Halbachsen von 17200 km und 60 km in der Ziclcbcnc und von 15540 km 
in Flugrichtung, mit 20° Neigung zur Knotcnlinic Zielebenc/Ekliptik. Bei Hinzunahme der Beobachtungen 



oder im Falle eines schiefen Rotators der Drehinipulsvektor 
' sehr wahrscheinlich 
' wobei sogar noch ein Parameter überzählig ist 

65 Ende 1984 

66 Nature 314(1985),587 

Dies wird auch durch die neueren Ergebnisse von SitüT'skl.Zlolkoil'ski, loc.cit., bestätigt. Eine Besprechung dieser 
Rückrechnung siehe J.Meeus, Heelal 31(1986), 276 

68 Astron. Astroph. 163(1986),246 

69 ibid. Tab. T 

70 für vorgegebene Verhältnisse A^j A\ siehe ESA SP 250(1986) Vol.3,290 
zunächst aufgrund eines Auftrages von ESTEC über vier Wochen 

im Wesentlichen nach den Formeln des §2.8.2 
73 W.Landgraf, ibid. (ESTEC Final Report, 1984), §5 
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ab 1607 war die Unsicherheit nur etwa halb so groß. Angenommen wurden sechs Bcobachtungs Verteilungen 
für Ende 1984 bis März 1986 (mittlerer Fehler 1" je Gewichtseinheit): 1) 1000 Gewichtseinheiten, davon 30 
im März 1986 [günstigster Fall]; 2) etwa 270 Einheiten, davon 6 im März 1986 [ungünstigster Fall]; 3) 224 
Einheiten - jedoch nur ab Mitte August 1985 -, davon 24 im März 1986 [keine Verwendung von Beobach- 
tungen mit r > 2 AE wegen des unklaren Verlaufes der nicht gravitativen Kräfte]. In diesen Fällen wurden 
Rcktaszcnsion und Deklination verwendet, in drei weiteren Fällen ab November 1985 nur die Positionswinkel 
zur Sonne zur Eliminicrung des light shiftes: 4) wie %)'■, 5) wie 3) jedoch 30 Positionswinkcl im März; 6) dgl., 
jedoch nur 6 Winkel im März. 

Die Hinzunahme der Beobachtungen von vor 1835 ergab nur Verbesserungen von unter 10% in den 
mittleren Fehlern 74 . Die Halbachsen der Fchlcrcllipsoidc in km und Neigungen zur Knotcnlinic in Grad waren 
in obigen Fällen: 1) 54/21/123:45; 2) 95/37/170:31; 3) 79/41/158:31; 4) 539/50/526:17; 5) 393/45/370:16; 6) 
572/53/551:17. Erwogen wurde eine Kampagne zur Messung der Rclativposition bei nahen Vorübergängen 
des Kometen an schwachen Sternen mit CCD-Detektoren. Nimmt man in Hinblick darauf zusätzliche 80 
Beobachtungen für Oktober bis Dezember 1985 und 6 weitere für März 1986 an, wären die Fchlcrcllipscn 
im Falle 1) 18/7/52:59, im Falle 2) 103/26/93:5. Neben diesen Werten wurden die mittleren Fehler der 
heliozentrischen und geozentrischen Position und der Elemente gegeben. Demnach war bei Kenntnis oder 
Nichtvorhandensein des light shiftes eine Positionsunsicherheit in der Ziclcbcnc von deutlich unter 100 km, 
im ungünstigen Falle eines nicht modellier baren light shiftes von über 400... 600 km zu erwarten. 

Um zu überprüfen, ob die Beschränkung auf Beobachtungen der gegenwärtigen Erscheinung möglich 
und sinnvoll wäre, wurden des Weiteren entsprechende Fchlerrechnungcn durchgeführt unter Vorgabe der 
Varianz einiger Parameter, die also nicht zu bestimmen sind, sondern vorgegeben werden. Im Ergebnis hatte 
eine Vorgabe der nichtgravitativen Parameter, egal ob mit realistischem oder verschwindendem mittleren 
Fehler, kaum Einfluß auf das Ergebnis. Im Falle 1) sind die Werte des Fchlcrcllipsoidcs 122/67/360:-49, im 
Falle 5) 2320/180/1060:-3. Erst die Vorgabe der großen Bahnhalbachsc mit einer realistischen Genauigkeit, 
mit der sie unabhängig von den Kraftmodcllcn und -parametern bestimmt ist (±4 ■ 10 -7 ), ergab eine deut- 
liche Besserung, die Werte waren nun 77/47/173:55 beziehungsweise 725/150/470:-l. Im günstigsten Fall, 
nämlich daß lediglich T bestimmt werden müßte und man alle anderen Unbekannten genau kennt, erhält 
man 27/0/25:18 und 238/0/215:18. Da man zur Vorgabe der großen Halbachse implizit auf die früheren 
Erscheinungen zurückgreifen muß, ergibt die alleinige Verwendung der gegenwärtigen Beobachtungen keine 
brauchbaren Ergebnisse. 

Die mittleren Fehler der rechtwinkligen Koordinaten bei Anwendung der Modelle von Rickman und 
Froeschle bei der Bcobachtungsvcrtcilung 1) betragen ohne light shift etwa 500 fem, mit light shift etwa 
1000 ... 2000 km. Im letzten Fall sind sie je nach Modell sehr unterschiedlich. 

Schließlich wurden noch die systematischen Fehler angegeben, die entstehen, wenn Erdkoordinaten und 
Beobachtungen nicht auf dasselbe Bezugssystem bezogen sind. Sic betrugen etwa 1000 km 7 '' . 

Diese Fchlerrechnungcn wurden mehrfach dahingehend kritisiert, daß die Zahl der angenommenen Be- 
obachtungen bei Weitem zu hoch sei 70 . Tatsächlich war jedoch in Anbetracht der über 5000 Beobachtungen 
der letzten Erscheinung und der Anzahl der später tatsächlich angefallenen Beobachtungen die Zahl eher 
sehr zurückhaltend gewählt worden. 

Im Januar 1986 wurden mit Rücksicht auf die tatsächliche Zahl der vorliegenden Beobachtungen die 
Fchlerrechnungcn aktualisiert 77 : Fall 1: etwa 3800 Gewichtseinheiten wie beobachtet zuzüglich 400 weitere 
für Januar und 30 für März 1986; 2), 3) wie 1, jedoch für r < 1AE die Elongationcn nur mit Gewicht 0,1 
und wegen der Elimination des light shifts; 4) - &)'■ wie 1) - 3) jedoch 60 Beobachtungen für März 1986. 

Bei sechs Elementen sowie A\ und Ai als Parameter erhält man im Falle 1 für die Achsen und die 
Ausrichtung des Fchlcrcllipsoidcs 45/13/118:56. im Falle 4 etwa 20% mehr, in den anderen Fällen etwa 
200/40/250:18. Das letzte Resultat dürfte für einen unbestimmten light shift als am meisten realistisch 
angesehen werden. Bei Annahme eines light shiftes S(r, S ) und Bestimmung von So indessen vergrößern sich 
die erstgenannten Werte nur um etwa 20%. Das bedeutet, daß die Annahme eines light shiftes als Funktion 

außer in der aktuellen Fehlerellipse, die auf die Hälfte reduziert wurde 

die sich bei einer Annäherung des Kometen an die Erde auf 0, 1 AE von Größe und Verlauf her wie ein light shift von 

über 10 verhalten würden 

76 etwa in Giotto Study Note 57(1985), 6 

77 Astron.Astrophys. 157(1986), 245 
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der heliozentrischen Distanz fast dieselben mittleren Fehler ergibt wie die Rechnung ohne light shift, was 
völlig illusorisch ist, von den systematischen Unterschieden der angenommenen s(r) (Modellrauschen) einmal 
abgesehen. 

Entsprechende Rechnungen wurden noch für die Bestimmung von insgesamt 9 nicht gravi tativen Para- 
metern für drei Teile der Bahn gemacht. Im Falle 1 und 4- erhielt man nun 200/100/500:-21, im Falle 2 und 5 
660/110/750:0, im Falle 3 und 6 1460/120/1600:3. Bei großer Zahl an nicht gravi tativen Parametern kommt 
es demnach kaum noch auf eine höheren Zahl an Beobachtungen im März an, hauptsächlich, weil diese die 
Parameter und die aus ihnen resultierende Unsicherheit der großen Halbachse nicht mitbestimmen. Dafür 
hängt das Ergebnis jedoch ganz erheblich von dem Gewicht der Elongationcn ab. Im Gegensatz zur Vorgabe 
des Verlaufes der nicht gravi tativen Kräfte wird jetzt die Bewegung nicht mehr von den äußeren Beobachtun- 
gen mitbestimmt 78 , sondern muß im sonnennahen Teil allcine aus dortigen Beobachtungen ermittelt werden. 
Da nur ein Teil der Parameter in den äußeren Bahnbcrcichcn signifikant bestimmt werden konnte, also die 
Vorgabe der Funktion genauer als der Informationsgehalt der Beobachtungen ist, ist für Vorausberechnun- 
gen von Positionswerten die Auflösung nach den nicht gravi tativen Parametern für unterschiedliche Bahnteile 
offenbar nicht geboten. 

Diese Ergebnisse verdeutlichen die Abhängigkeit der Genauigkeit der Vorausbcrcchnungcn von der 
Kenntnis über light shift und nichtgravitative Kräfte. Zusammenfassend wäre bei genauer Kenntnis die- 
ser Effekte die Position mit einem mittleren Fehler von etwa 50 km genau berechenbar 79 , die Unsicherheit 
infolge dieser Effekte beträgt indessen etwa 200 km. 

4.3 Die Beobachtungen 

In diesem Abschnitt soll das Bcobachtungsmatcrial diskutiert werden, welches für die Berechnungen 
verwendet wurde. 

Beobachtungen des Hallcyschcn Kometen lassen sich bis 467 v.Chr., möglicherweise sogar bis 618 v.Chr., 
zurückvcrfolgcn (siehe letzten Abschnitt). Für die Untersuchung des langzeitigen Verhaltens der nichtgra- 
vitativen Kräfte sind die Beobachtungen bis 240 v.Chr. brauchbar. Bei den vorgenannten Untersuchungen 
hat der Verfasser häufig Beobachtungen zurück bis 1607 verwendet, teilweise wurde eine Anpassung an noch 
frühere Erscheinungen durchgeführt. Daraus ergab sich eine säkulare Vergrößerung der nichtgravitativen 
Kräfte von knapp 1% pro Umlauf 80 , aber auch eine Fluktuation der individuellen Erscheinungen in dieser 
Größenordnung. Deshalb war es nicht möglich, überzählige Erscheinungen ohne erhebliche systematischen 
Rcstfehlcr darzustellen 81 . Demgegenüber korreliert eine säkulare Änderung der Kräfte im Prozent bercich 
bei Verwendung von drei Erscheinungen praktisch vollständig mit den sonstigen Parametern und hat dann 
praktisch keinen Einfluß auf die Ergebnisse. In §3.1 wurde bereits erörtert, daß von einer dritten Erscheinung 
nur die (ungefähre) Information über die Pcrihclzcit benötigt wird 8,5 . Daher wurden für die vorliegenden 
Berechnungen nur die Erscheinungen seit 1835 verwendet. Die für die früheren Arbeiten berechneten Nor- 
malortc sind für anderweitige Verwendung jedoch in Tab. 4.1 aufgeführt. 

Von der Erscheinung 1835-1836 liegen etwa 900 Beobachtungen vor 84 . Diese Beobachtungen sind von 
sehr unterschiedlicher Qualität hinsichtlich Durchführung und Genauigkeit. Die brauchbar erscheinenden 
Beobachtungsserien wurden, teils unter Verwendung moderner Positionswerte für die Anschlußsterne, neu 
reduziert. 



siehe dazu den letzten Abschnitt von Pkt. 3 in §3.1 

siehe Lösung 1,1', 1" in Tab. 4.7; die nicht erfaßbaren systematischen Fehler liegen ebenfalls in dieser Größenordnung 

entsprechend einer Stunde in der Perihelzeit 

Man kann die Erscheinung 1759 noch mit Hinzunahme von B darstellen, jedoch steht der hierfür nötige Wert in 

Widerspruch zu dem aus den früheren Erscheinungen, sodaß dies nicht sinnvoll ist 

siehe dazu Lösung 8" gegenüber 3" in Tab. 4.7 

Außerdem stellte sich heraus, daß bereits aus den Beobachtungen der gegenwärtigen Erscheinung die Parameter mit nur 

etwa doppelter Ungenauigkeit folgen 

P.Carl. Repertorium der Cometen-Astronomie. München 1864. 364ff; S.F.RÖSer, Study into the Accuracy of 

Astrometric Observations of Comets. ESOC 5759/83/D/TM(SC) Final Report. Heidelberg 1984. 62ff. 
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Tabelle 4.1 Normalörter für frühere Erscheinungen 

t et d~ Gewicht 



837 4 29.0 ET 10 23 17,4 



-0 3 42 



1607 10 4, OUT 15 4 52,8 +15 22 24 



0,1 

0, 0004 



1682 8 28,0 UT 

1682 9 10, OUT 

1682 9 19, OUT 

1759 1 27, 8 UT 

1759 5 5,9UT 

1759 5 24,9 UT 



25, 23 

9,20 

58,41 



-11 
+8 
-4 



2 6,1 0,01 

10 45,0 0,01 

2 19,9 0,01 



29 24,76 +2 8 55,3 0,08 
33 15,95 -16 28 29,5 0,10 
24 39,20 -5 34 43,4 0,10 



Die Position für 837 entspricht dem Ort des Kometen relativ zur Erde, wie er 
zur Darstellung der früheren Erscheinungen durch die diffcrcnticllcn Störungen nötig 
war. Zur Vermeidung schlechter Konvergenz bei einer Balmvcrbcsscrung bezieht sich 
die Position jedoch auf einen Zeitpunkt lange nach der größten Annäherung. Die 
Normalörter für 1607,1682 und 1759 wurden aus den zugänglichen Beobachtungen - 
teilweise Entfernungen des Kometen zu Fixsternen - gebildet. Alle Positionen bezie- 
hen sich auf das FK4-Systcm zur Epoche B1950 und sind geozentrisch. 



Tabelle 4.2 Korrektur der Beobachtungen von Struve nach 
der Neureduktion mit Sternörtern aus dem, SAO-Katalog 

Nr. Aa AS Nr. Ao Ac5 Nr. Aa AcS 



3 


-1"0 


+2" 2 


18 


+1"3 


+1"7 


33 


+ 1"2 




1 


-1,6 


-0,6 


19 


-0.5 


+0,4 


31 


-0,3 


-1"3 


5 


-1,6 


-0,6 


21 


-1.8 


+0,9 


35 


-0,2 


+ 1,9 


7 


-0,8 


-0,5 


22 


-0.5 


+ 1,1 


36 


+0,1 


-1,6 


8 


-0,8 


-0,1 


27 


+0,1 


+2,0 


38 


-0,6 


+ 10,2 


10 


-0,8 


+0,4 


28 


+0,3 


+ 1,7 


39 


-1,1 


+ 1,1 


12 


+0,8 


-0,4 


29 


-1,1 


+ 1,1 


10 


-1,0 


+ 1,2 


11 


-1,2 


+3,0 


30 


+0,8 


-0,5 


41 


-1,8 


+0,1 


10 


-1,6 


+1,1 


31 


-0.1 


-0,6 


12 


-1,8 


+0,5 


17 


+0,0 


+1,3 


32 


+0,3 


-1,2 


13 


+0,9 


-1,2 



Tabelle 4.3 Korrektur der Beobaehtungen von Bessel nach 
der Neureduktion mit Sternörtern aus dem SAO-Katalog 

Nr. Aacos<5 AS Nr. Aacos<5 AS Nr. Aacos<5 AS 



1 


-0'04 


+1"7 


11 


+0*17 


+0"7 


27 


-0*02 


+0"8 


2 


-0,38 


+ 1,0 


15 


+0,14 


+0,9 


28 


+0,11 


+0,5 


3 


-0,04 


+0,0 


16 


-0,03 


+0,9 


29 


+0,02 


+1,5 


1 
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F.G. W.Struve hat den Kometen vom 21. August bis zum. 15. November 1835 mit dem großen Refraktor 
in Dorpat beobachtet. Die Messungen wurden zu 44 Positionswerten - davon in einem Fall ohne Deklination 
- zusammengefaßt. Nach Ausschluß der letzten Beobachtung sowie von zwei weiteren Rcktaszcnsioncn be- 
trug der mittlere Fehler 2" 5. Die Messungen und ihre Reduktion hat Struve sehr ausführlich in einem Buch 
veröffentlicht 85 . Im ersten Teil werden die Instrumente und sonstigen Hilfsmittel sowie Art und Weise der 
Beobachtungen erläutert. Anschließend folgen die Beobachtungswerte und sonstige Wahrnehmungen, insbe- 
sondere Beschreibungen der physikalischen Erscheinungsform des Kometen. Meist wurden Positionswinkcl 
und Distanz des Kometen relativ zu einem nahen Anschlußstern gemessen, in einigen Fällen jedoch die Diffe- 
renzen ( Vergleiche) in Rektaszcnsion und Deklination 86 . In wenigen Fällen wurden mehrere Anschlußsterne 
verwendet. Meist blieb ein Faden ruhend, gelegentlich wurden aber beide Fäden bewegt. Den wahren Fehler 
der daraus gebildeten Positionen schätzt Struve zu im Durchschnitt 0"5 in acos<5 und 0"4 in S ab. Im 
zweiten Teil wird ebenso ausführlich über die Beobachtung der Anschlußstcrnörtcr berichtet. Von den 41 
Anschlußsternen wurden 26 mit dem Meridiankreis beobachtet, bei 15 wurden die Vergleiche mikrometrisch 
zu ebenfalls am Kreise beobachteten helleren Sternen gemessen. Die wahren Fehler der Stcrnörtcr wurden 
zu etwa 0"5 in acosö und 0"3 in <5 berechnet. Anschließend erfolgt die Reduktion der Beobachtungen. Diese 
wurde mit größter Sorgfalt durchgeführt, insbesondere wurden auch alle während der Bcobachtungsdaucr 
nicht linearen Anteile von Eigenbewegung. Refraktion und Parallaxe berücksichtigt. Zum Abschluß werden 
die Positionen mit einer Ephcmcridc verglichen. Im Anhang sind, teils farbige. Bilder über die Erscheinungs- 
form des Kometen gegeben. 

F.W.Bessel hat den Kometen in der Zeit vom 25. August 1835 bis zum 23. März 1836 am großen 
Heliometer (15, 8cm/ f — 2. 6m) in Königsberg beobachtet. Dieses Instrument war vermutlich das genaueste 
der damaligen Zeit. Bessel hat seine Beobachtungen zu 38 Positionswerten zusammengefaßt. Alle einzel- 
nen Meßwerte und sonstigen Angaben, etwa über die physikalische Erscheinungsform, sind veröffentlicht 87 
und das Instrument sowie seine Konstanten ist sehr genau bekannt und dokumentiert 88 . Alle Messungen 
sind in sehr ähnlicher Weise erfolgt und daher verhältnismäßig homogen. Nach dem Ausschluß der letzten 
Beobachtung beträgt der mittlere Fehler 2" 5. Die Anschlußsternc wurden in Königsberg am Meridiankreis 
beobachtet: in vielen Fällen außerdem auch in Dorpat 89 , in diesem Fällen war die Differenz sehr klein und 
wurde der Mittelwert gebildet. 

Die beispielhafte Dokumcnticrung der Einzclmcssungcn von Bessel und Struve erlaubt eine genaue 
Neureduktion ihrer Beobachtungen 90 . 

Die Originalbeobachtungcn - im Falle von Bessel nach der Reduktion von H. Westphalen 91 - zeigten auch 
nach der Bahn Verbesserung einen deutlichen systematischen Fehler von etwa 1" in Rektaszcnsion, der sich 
augenscheinlich nicht durch einen light shift oder einen Fehler in der Erdephemeride erklären läßt 92 . Mit 
großer \Vahrschcinlichkcit handelt es sich um den Systcmfchlcr der damaligen Beobachtungen. Diese waren 
auf das Bcssclschc Fimdamcntalsystcm 9:i bezogen, welches für Sterne der verwendeten Helligkeit um etwa 
0"8 gegenüber dem heute gebräuchlichen Äquinoktium abweicht (s. §2.5.3). 

Von den 37 Anschlußsterncn, die Bessel verwendete, finden sich alle im SAO-, 32 im AGK ;J - und 3 im 
Pcrth70-Kata.log. Von den 41 Sternen von Struve finden sich 25 Sterne im SAO- und 33 im AGK3-Katalog. 
Bedauerlicherweise differierten die für 1835-6 rückgcrcchnctcn Positionen in den meisten Fällen um mehr als 

85 Beobachtungen des Hallcy'schcn Comctcn bei seinem Erscheinen im Jahre 1835 auf der Dorpater Stern- 
warte Angestellt von F. G. W.Struve. St. Petersburg 1839 
deren Zusammenhang siehe Fußnote auf der nächsten Seite 

87 Astronom. Beob. ... Königsberg 21(1844), 81-95; die physikalischen Beobachtungen in Astron. Nachr. 13(1836), 65, 185 
[mit Abbildungen] 

88 siehe etwa F. W.Bessel, A st ron. Nachr. 8(1831), 397; W. Valentiner, Handwörterbuch der Astronomie. Breslau. 
2(1898),9ff 

ein Teil der Anschlußsterne waren bei Struve und Bessel identisch 

90 siehe dazu W. Valentiner, ibid. 2(1898), 24,3 Teil l(1899),68ff 

91 Astron.Nachr. 24(1847),333f.,365f. 

Der Fehler blieb über die gesamte Erscheinung ähnlich und wechselte insbesondere nicht das Vorzeichen während der 
Erdannäherung bis auf 0, 19 AE am 13. Oktober 1835. Eine Bahnverbesserung unter Hinzunahme der Korrektur des 
Äquinoktiums für 1835 ergab E = -0 9 (die Perihelzeit ist dabei ausreichend durch die Deklinationen bestimmt) 
Sternörter im Berliner Astronomischen Jahrbuch der damaligen Zeit 
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1" . Außerdem gaben sie nicht die systematische Korrektur wieder, und der mittlere Rcstfchlcr wurde nicht 
wesentlich verringert. Weniger zur Empfehlung einer Verwendung als zur Verdeutlichung sind in Tab. 4.2 und 
4.3 die Korrekturen der mit SAO-Ortern neureduzierten Beobachtungen zu den Originalwcrtcn angegeben. 
Die Korrekturen der Vergleiche dagegen waren in den meisten Fällen unter 0"2. 

Demnach liefern die heute gebräuchlichen Sternkataloge die Positionen dieser Anschlußsterne nicht so 
genau wie die speziellen Bemühungen der damaligen Beobachter. Alles sprach daher dafür, nur die genauer 
bekannten systematischen Korrekturen auf das heutzutage verwendete System an die damaligen Beobachtun- 
gen anzubringen. Da außerdem die Korrekturen der Vergleiche nur sehr gering, also auch in dieser Hinsicht 
die damaligen Ergebnisse nicht revisionsbedürftig waren, wurde letztlich so verfahren, daß die Normalortc 
von Westphalen m verwendet und daran die systematischen Korrekturen GC — (Kon 20/25 -f Dpt 30) /2 
und (FK$ — GC)i§36 m angebracht wurden. Dabei wurden die Aa m für die mittlere Helligkeit der beitra- 
genden Anschlußsterne verwendet 97 . Die Korrekturen lagen im Bereich — S 024... — S 084 in Rcktaszcnsion 
und — 0"43... -I- 0"07 in Deklination. Bei einem der 27 aus Beobachtungen von Bessel und Struve gebildeten 
Normalortc fehlt die Deklination, bei dem ersten wurde sie ausgeschlossen, die restlichen Messungen erhielten 
das Gewicht 1 in beiden Koordinaten 98 . 

J.Lamont in Bogcnhauscn beobachtete den Kometen vom 13. Januar bis zum 17. Mai 1836 mit dem 
großen Refraktor (28cm.// : 18). Die Messungen wurden ebenfalls sehr ausführlich veröffentlicht 99 . Die 
Beobachtungen sind sehr unterschiedlich in Durchführung und Qualität. In der Regel wurden Positionswinkcl 
und Distanz zwischen Stern und Komet, mitunter auch die Durchgangszcit und Deklinationsdifferenz oder 
eine andere Kombination dieser Größen gemessen. Allerdings sind die sonstigen Angaben unzulänglich. Nur 
für wenige Abende hat Lamont die verwendeten Anschlußsterne angegeben. Außerdem fehlte die Angabc, 
welches Mikrometer verwendet wurde. 

An mehreren Abenden war die Zu- oder Abnahme von Positionswinkcl und Distanz während der Be- 
obachtungsdaucr erheblich. Ist die Eigenbewegung des Kometen bekannt, so folgt, beispielsweise aus dem 
Positionswinkcl und seiner zeitlichen Veränderung, oder aus einer dieser Größen und der relativen zeitlichen 
Änderung der Distanz, eindeutig der Ort des Sternes und zusammen mit den Distanzen der Schrauben- 
wert 100 . 

Ausgehend von diesem Grundgedanke wurde die Reduktion der Beobachtungen in umgekehrter Weise 
als üblich durchgeführt. Aus der Ephcmcridc des Kometen und vorläufigen Werten für die Position des 
Anschlußstcrncs und sonstigen Unbekannten wie dem Schraubenwert, der Koinzidenz beider Fäden und 
der Neigung des Teilkreises, wurden unter genauer Berücksichtigung von Präzession, Nutation, Aberration 
und Refraktion die theoretischen Werte der Bcobachtungsgrößcn berechnet, ebenso ihre Ableitung nach 
den angenommenen Werten für die Unbekannten 101 . Daraus wurden diese ermittelt und das Verfahren 
iterativ wiederholt. Die reduzierte Vcrglcichung folgt anschließend aus der Differenz von Ephcmcridcnort zur 
gewünschten Zeit zum berechneten Sternort, die reduzierte Position selbst ist der Ephcmcridcnort korrigiert 
um die Differenz des tatsächlichen zum wie beschrieben berechneten Sternort. Dieses Verfahren ist auch 
wegen seiner Durchsichtigkeit den üblichen Reduktionsverfahren vorzuziehen. 



ibid. 373 

B.BOSS, General Catalogue of 33342 Stars for the Epoch 1950. Washington 1937, l,175f. 
P.BroSche,H.Nowacki,W.Strobel, Verö.Astr. Rechen- Inst. Heidelberg 15{1964),24f 
bei den mikrometrisch an hellere ange.sclilossenen Sternen waren Letztere maßgeblich 
dabei und auch weiterhin ist der mittlere Fehler einer Gewichtseinheit 1 

J.Lamont, Observ. Astron. in Specula Regia Monachiensi Inst. 11(1843). 1; zum verwendeten Mikrometer ibid. 
32,289 

Aus den für eine erste Näherung ausreichend genauen Beziehungen A^_* O COS S ~ 1p sin 9, AfC-* 5 RS 1p COS 9 
(V). Distanz und Positionswinkel) folgen diese Beziehungen sofort durch zeitliches Difforuiizioro.il und einfaches Umfor- 
men, etwa fl — 1p' Ak-* CnCOsS + 9Ak-* <5, fl' — Ip'Ax-* S — 9Ak~* CnCOsS bei Verwendung der zeitlichen 
Variation des Positionswinkels 9, der relativen zeitlichen Änderung der Distanz 1p = WiW un d der Eigeiibowegung 
ß, fl! in acOSÖ und 5 

Dabei wurden auch die Glieder 2. Grades in den Tangentialkoordinaten berücksichtigt, also etwa unterschieden, ob bei 
der Messung der Komet oder der Stern in der Mitte war 
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Positionen bezogen auf das FK 4 -Systcm zur Epoche B1950, topozentrisch. n: Anzahl der 
Einzclbcobachtungcn. *: verwendete Position für den Anschlußstern. A: AGK ;j , S: SAO , G: 
GC. Sind zwei Kataloge angegeben, wurden Position und Eigenbewegung entsprechend den beiden 
Positionen zur Originalcpochc. jedoch zuvor auf das FIQ-System reduziert, verwendet. 

Tabelle 4.5 Neu reduzierte Beobachtungen von Nicolai 
t (UT) a 5 
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Positionen bezogen auf das FIQ-Systcm zur Epoche B1950, topozentrisch. 



Die Anschlußsterne konnten so alle zweifelsfrei ermittelt werden. Etwa die Hälfte war jedoch schwächer 
als 11. Größe 102 , sodaß die Position nur für eine Epoche gefunden werden konnte. Diese Stcrnörtcr wurden 
auf das FIQ-Systcm reduziert. In einigen Fällen wurde der Stern noch aus neueren Aufnahmen ausgemessen, 
um die Eigenbewegung zu erhalten. Zu erheblichem Teil wurden die Positionswinkcl um 180° falsch angege- 
ben, was zweifelsfrei aus der bekannten Eigenbewegung sowie der Änderung von Positionswinkcl und Distanz 
während der Beobachtungsdaucr hervorging 10,1 . Außerdem wurden noch einige andere offensichtliche Fehler 
entdeckt. 

Die Messungen wurden zu 22 Positionen zusammengefaßt. Nach Ausscheiden von je einer Rektaszcnsion 
und Deklination verblieb in den restlichen Beobachtungen ein mittlerer Fehler von 4" 4, der sich bei genauerer 
Kenntnis der Anschlußstcrnörtcr noch verringern dürfte. Qualitativ liegen damit die Beobachtungen nur 
geringfügig hinter denjenigen von Bessel und Struve. Ihr besonderer Wert liegt darin, daß sie den Zeitraum 
brauchbarer Beobachtungen um ein halbes Jahr ausdehnen. Für die vorliegenden Berechnungen wurden sie 
zu 4 Normalorten mit einem Gewicht von insgesamt etwa 2 in beiden Koordinaten zusammengefaßt. 

Wegen dem Fehlen der Anschlußsterne, den teils entgegengesetzten Positionswinkcln und anderen Verse- 
hen, die wohl den Grund dafür darstellen, daß diese Beobachtungen bis heute nicht reduziert und verwendet 
wurden, war es geboten, die Reduktion dieser Beobachtungen ausführlich zu veröffentlichen 104 . Es soll davon 
abgesehen werden, die Werte hier nochmals zu wiederholen. 

J.Encke in Berlin beobachtete den Kometen im Zeitraum 1835 September 17 bis 1836 März 19 105 , und 
faßte seine Beobachtungen zu 31 Positionen zusammen. Mit einer Ausnahme sind alle Anschlußsterne entwe- 
der im SAO- oder AGK;j-Katalog enthalten. Die Beobachtungen sind jedoch sehr unterschiedlich hinsichtlich 
Durchführung und Qualität. Es wurden verschiedene Instrumente verwendet, teils nur ein Krcismikromctcr. 
Lediglich bei den Beobachtungen, die am großen Refraktor durchgeführt wurden (im Zeitraum vom 3. Ok- 
tober bis 6. November 1835), ist eine Neureduktion lohnend. Sie ist auch möglich, da diese Beobachtungen 
ebenso ausführlich dokumentiert sind wie jene der vorgenannten Beobachter. 

Die Rcduktionsrcchnungcn wurden in derselben Weise durchgeführt wie bei den Beobachtungen von 
Laraont. Wenn der Anschlußstern in zwei Katalogen vorhenden war. wurde der Ort für 1835-6 aus der 
Kombination beider Positionen zur Originalcpochc gebildet. Die Ergebnisse der Neureduktion sind zur 
weiteren Verwendung in Tab. 4.4 angegeben. Für die Berechnungen wurden diese Beobachtungen zu zwei 
Normalorten mit jeweils Gewicht 1 zusammengefaßt. 

F. B.G.Nicolai in Mannheim beobachtete den Kometen vom 29. August 1835 bis zum 17. Januar 1836 106 . 
Bei allen Beobachtungen wurden die Anschlußsterne angegeben, jedoch nicht die einzelnen Messungen, son- 
dern allenfalls die bereits reduzierten Vergleiche, sodaß eine Neureduktion nur noch sehr bedingt möglich 
ist. Außerdem sind die Beobachtungen nur mit einem Krcismikromctcr durchgeführt worden. 

Soweit möglich, wurden die Stcrnörtcr aus denen zweier Sternkataloge zu ihren Originalcpochcn ge- 
bildet. Auch nach der Neureduktion wiesen 15 der 28 Beobachtungen eine Abweichung von über 8" zur 
Bahnrechnung auf. Die Positionen sind in Tab. 4.5 angegeben. 

Alle anderen Beobachtungen waren bereits offensichtlicher maßen von wesentlich schlechterer Qualität, 
leider insbesondere die umfangreichen Bcob acht ungs reihen vom Südhimmel. T.Maclear am Kap der Guten 
Hoffnung 107 machte 69 mikrometrische Beobachtungen vom 28. Oktober 1835 bis zum 2. März 1836, die 
jedoch eine Streuung von über l s aufwiesen, weitere 35 am Meridiankreis erhaltene Rcktaszcnsioncn und 40 
am Mauerquadranten erhaltene Deklinationen können mangels in der selben Nacht beobachteter Uhr- und 
Vergleichs terne nicht neu reduziert werden. J.F.W. Herrschet 108 beobachtete ebenda 71 Rcktaszcnsioncn 
und 63 Deklinationen im Zeitraum 25. Januar bis 5. Mai 1836, jedoch sind die individuellen Messungen 



Lamont hatte beabsichtigt, die Positionen der schwachen Anschlußsterne nachträglich zu beobachten, konnte sie dann 
aber wohl nicht mehr zweifelsfrei finden, Astron. Nachr. 14,58,24,340. Zum Glück hat er sich dennoch später entschlos- 
sen, die Meßwerte zu veröffentlichen 
und auch durch das Fehlen eines Sternes bei der sonst anzunehmenden Position bestätigt wurde 

104 Astron.Nachr. 306(1985),251 

105 Math. Abhandl. d. Königl. Akad. d.Wiss. 1836.103 

106 Astron.Nachr. 13(1835), 3, 89, 151,309 

107 Mem. Royal Astron. Society 10,91 

108 ibid. 10,325 
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nicht und die Zeiten nur auf die Minute gegeben, sodaß auch diese Positionen weder genau neureduzierbar 
noch brauchbar sind 109 . Eine weitere umfangreiche Bcobachtungsscric über den Zeitraum 1835 August 21 
bis 1836 April 8 und zusammengefaßt zu 21 Positionen, wurde von C.L. v.Littrow in Wien angestellt 110 . 
Die Einzclmessungcn zeigen auch hier eine Streuung von über l s . Auch die meisten anderen Beobachtungen 
wurden mit Kreismikrometern erhalten, die in der Regel schlechte Positionen ergeben. 

Die Beobachter beschrieben die Aktivität des Kometen und waren oftmals der Meinung, daß die hellste 
Stelle deutlich von der Mitte oder zumindest vom Zentrum der Ausströmungscrschcinungcn abweicht, und 
sich diese Verhältnisse von Tag zu Tag änderten; Struve gab mitunter die Positionsdifferenzen an. Wie auch 
Westpkalen bemerkt 111 , waren die täglichen Rcstfchlcr der guten Beobachter nach der Bahn Verbesserung 
ähnlich und signifikant weit größer als die Beobachtungsgenauigkeit, wofür als Ursache die Differenz der 
hellsten Stelle zum tatsächlichen Kern angesehen wurde. 

Dennoch war es nicht möglich, einen über längere Zeit systematischen light shift zu finden. Es wur- 
den viele Lösungen einerseits mit den vollständigen Beobachtungen, andererseits nur mit den Elongationcn 
durchgeführt. Im letzteren Fall waren die Rcstfchlcr meist positiv, und der Unterschied in den Ergebnissen 
gegenüber der Verwendung der vollständigen Beobachtungen nur gering 112 . Für die vorliegenden Rechnun- 
gen wurden daher die Normalortc für 1835-6 vollständig verwendet. Sic reichen bis 1.9 AE vor und bis 
3,0 AE nach dem Pcrihclium. 

Aus der Zeit 1909 bis 1911 liegen über 5000 Beobachtungen vor 11,5 . Davon wurden etwa 2800 Beob- 
achtungen auf das System des GC reduziert und zu 33 Normalorten zusammengefaßt 114 . Diese wurden 
auf das FK4-Systcm reduziert und zunächst verwendet 115 . Später wurde mit der Neureduktion der Einzel- 
beobachtungen begonnen, diese aber nicht fortgeführt, nachdem von ESOC erfahren wurde, daß dies von 
dort bereits in Auftrag gegeben wurde (siehe §4.1). Die Ergebnisse wurden von dort mitgeteilt und ver- 
wendet. Überwiegend handelte es sich um mikrometrische Beobachtungen, bei denen die Einzclmessungcn 
nicht überliefert sind, teilweise auch um photographischc Aufnahmen, bei denen die Anschlußsterne mit 
angegeben wurden. Außerdem wurde eine größere Zahl an Aufnahmen neu ausgemessen. Die Streuung der 
Beobachtungen war sehr groß, zeitweilig über 10"; systematische Fehler sind jedoch nicht, ein light shift 
ist nur andeutungsweise zu erkennen 116 . Die neu ausgcmcsscncn Aufnahmen bekamen in der Regel das 
Gewicht 0,4, die sonstigen 0, 2 oder 0, 1, ein großer Teil wurde nicht verwendet. Bei r > 2 AE wurden die 
Beobachtungen vollständig, ansonsten wurden die Elongationcn nur nahe Oppositionen oder Konjunktio- 
nen und auch dann nur mit maximalem Gewicht von 0, 2 verwendet. Bei r > 3 AE schließlich wurde nur 
der zur Variationslinic nach der Pcrihclzcit senkrechte Anteil der Beobachtungen verwendet (siehe §2.8.2), 
damit sich die erhebliche Streuung der äußeren Beobachtungen von über 3" nicht auf die Bestimmung der 
nicht gravitati von Parameter dieses Bahnbcrcichcs auswirkt. 

Insgesamt gesehen ist die Qualität der Beobachtungen von 1909-11 erheblich schlechter als die der 
heutigen Beobachtungen, was den Vorteil gegenüber anderen periodischen Kometen etwas vermindert. Die 
Beobachtungen reichen von 3,6 AE vor bis b,AAE nach dem Pcrihcl. 

In der gegenwärtigen Erscheinung wurden bisher über 8000 Beobachtungen von etwa 130 Sternwarten 
bekanntgegeben 117,118 . Die meisten davon erfolgten in der Zeit von Ende Juli 1985 bis Ende Juli 1986, als 

man könnte allenfalls den Anteil der Positionen senkrecht zur scheinbaren Bewegungsrichtung verwenden 

110 Wiener Annalen (Neue Folge) 13,1 

111 Astron. Nachr. 24(1846), 370 

112 ESA SP 250(1986) Vol.3,293 

113 einen Überblick darüber gibt P.Zadunaisky, Astron. Journ. 71(1966), 21 

114 J.Bobone, ibid., 23 

Die von Zu.dunu.lHh-y, ihii.1. beschriebenen Inkonsistenzen zwischen den Beobachtungen vor und nach dem Perihel traten 
bei den vorliegenden Berechnungen nicht auf und dürften auf die verwendeten Plancteneplienierideu zurückzuführen sein 

11(i ESA SP 250(1986) Vol.3,293 

Sie sind bis auf wenige Ausnahmen fortlaufend in den MPC's veröffentlicht worden 

118 Der Verfasser hat den Kometen im März 1985 in Budweiß (zusammen mit A.MrköS und Z. Vävrovä) sowie im Zeit- 
raum Oktober 1985 bis Januar 1986 in Mainz (zusammen mit Ii.IliCTIlÜTITl) und in Göttingen beobachtet. Von den 
über fünfhundert Aufnahmen aus Mainz und (. iöt tiiigen iM hishcr jedoch ersl ein kleiner Anteil endgültig ausgewertet 
worden (MPC 9602,10069-70,10226,10469,10470(1985-6), IAU-Circ. 4125(1985); ein Bericht über die Beob- 
achtungen in Mainz siehe Mainzer Allg. Zeitung 4. /5. 1.1986,9. Weitere Aufnahmen wurden mit einer geringen Anzahl 
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Tabelle 4.6 Position des Halleyschen Kometen gemäß Beobachtungen der Raumsonden Vega 1/2 

Nr. x =b y ± 2 ± 

1 -80526381,68 32,89 -97904502,10 34,18 -46387199,25 52,00 

2 -80526292,47 27,06 -97904467,01 26,60 -46387240,40 46,00 

3 -80526370 -97904501 -46387208 

Nr. x y z Ai A 2 

1 -42,25375341 4,39323253 -10,59103119 (0,0835) (0,0155) 

2 -42,25359633 4,39321171 -10,59109318 (0,0835) (0,0155) 

3 -42,253719 4,393212 -10,591065 0,09787 0,015532 

Angegeben sind die heliozentrischen Initialwcrtc [in km und km/s] des Halleyschen Kometen bezogen 
auf das System DE118. Die ersten Werte wurden von ESOC aus Beobachtungen von Vega 1 berechnet, die 
zweiten ebenfalls von ESOC aus Beobachtungen von Vega 1 und Vega 2. In beiden Fällen wurden für A^ 
und Ai die aus den vorangegangenen Bahnrechnungen mit crdgcbundcncn Beobachtungen erhaltenen Werte 
angenommen. Die dritten Werte wurden bei Intcrkosmos aus den Beobachtungen von Vega 1 und Vega 2 
sowie den crdgcbundcncn Beobachtungen seit 1835 erhalten. 



der Komet heller als 14. Größe und damit auch kleineren Instrumenten zugänglich war. In diesem Bereich 
war die Güte der einzelnen Beobachter sehr unterschiedlich. Den Rcstfchlcrn nach zu schließen waren 
die Fehler Ursachen sehr verschieden. Ab Mitte Oktober 1985 traten systematische Fehler etwa längs des 
Radiusvektors auf, die auf einen light shift hindeuteten. Bei den Beobachtern mit geringer Streuung der 
Rcstfchlcr war auch zunächst kein systematischer Fehler vorhanden, ab Anfang 1986 jedoch ebenfalls. Bei 
dem von Januar bis Mai 1986 in den meisten Beobachtungen auftretenden light shift von einigen " (siehe 
Abb. 2.5) war innerhalb kleiner Zeiträume eine deutliche Beobaelitembhäiigigkeil zu sehen, jedoch wechselte 
auch der bcob acht er unabhängige Anteil manchmal von Nacht zu Nacht erheblich. 

Im Laufe der Rechnungen wurde die Wichtung erheblich variiert. In Hinblick auf das sehr bcobach- 
terabhängige Bild der Rcstfchlcr erfolgte sie letztendlich je nach Beobachter, von einzelnen schlechten Beob- 
achtungen abgesehen. Dabei wurde eine strenge Auswahl getroffen. Bei einem großen Teil der Beobachter 
lag die Streuung der Beobachtungen bei über 1", diese wurden nicht berücksichtigt, ebenso Beobachter mit 
weniger als 5 Beobachtungen, da sich dort die Güte nicht beurteilen läßt. Die anderen Beobachter erhielten 
Gewichte von 0,4, 1, 2, 4 oder 6 (siehe dazu die Erläuterung zu Tab. 4.7) 119 . 

In Anbetracht der in §4.4 erläuterten Ergebnisse wurde bei allen ab Mai 1986 durchgeführten Rech- 
nungen der light shift ausnahmslos über das in §2.7 beschriebene Verfahren eliminiert. Dazu wurden bei 
r < 2, 15 AE nur die Positionswinkcl zur Sonne verwendet, dies betraf den Zeitraum vom 15.10.1985 bis zum 
7.6.1986. Lediglich nahe den Oppositionen, in der Zeit vom 15. bis 23.11.1985 und vom 18. bis 20.4.1986, 
wurden einige Elongationcn mit maximalem Gewicht 0,4 verwendet. 

Die Qualität der Beobachtungen außerhalb des genannten Zeitraumes war ebenfalls sehr unterschiedlich. 
Die Beobachtungen von Majdanak, Cambridgc/Mass. und Calar Alto erhielten wie auch sonst das Gewicht 
4, die von Kitt Peak das Gewicht 2. Die übrigen Beobachtungen erhielten bei Rcstfchlcrn in der betreffenden 
Koordinate bis etwa 2" Gewicht 1, bis etwa 3" Gewicht 0,4, darüber blieben sie unberücksichtigt. Wenn der 
Fehler in der jeweils anderen Koordinate über 3" betrug, wurde um eine Stufe abgewichtet, wenn er in einer 
Koordinate über 5" betrug, blieb die gesamte Beobachtung unberücksichtigt, um den Einfluß korrelierender 
Fehler und Verwechslungen des schwachen Kometen mit Plattcnkorn möglichst auszuschließen 120 . 



an Anschlußsternen vorläufig ausgewertet. Bei den vorliegenden Rechnungen sind insgesamt, 8 Positionen aus Mainz 

und 18 aus Göttingen mit einem mittleren Fehler von ' 7 verwendet worden. 

Die beste Beobachtungsreihe stammt aus Tautenburg, F.BÖ'mgen, Astron. Nachr. 307(1986), 257 (2T> Beobachtungen, 

mittlerer Fehler 0"4) 

Dieses Verfahren hat sich bei der Berechnung kleiner Planeten gut bewährt 
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Bei den in §4.5 angegebenen Ergebnissen wurden noch Beobachtungen bis zum 14. Februar 1988 ver- 
wendet, zu dieser Zeit befand sich der Komet in einer Entfernung von knapp r — 8. AE. Die Entdeckung 
erfolgte bei 11,0 AE heliozentrischer Entfernung. 

Nach dem Vorbeiflug der Vega-Sondcn am Kometen wurden auch die damit erhaltenen Positionen des 
Kometen für die Bahnbcrcchnungcn mitverwendet. Von den Welt raumbehör den wurden nicht die Einzcl- 
beobachtungen, sondern nur die daraus berechneten Initialwcrtc des Kometen am 14. März 1986 bekannt 
gegeben (siehe Tab. 4.6). Die daraus rekonstruierten Positionswerte des Kometen für 1986 März 6,25 und 
9,25 (Zeit des Vorbeifluges) stimmten auf wenige km genau untereinander übercin. Definitiv verwendet 
wurden die aus Nr. 2 in Tab. 4.6 berechneten Werte. Die mittleren Fehler wurden in x und y zu 10 km, in z 
zu 20 km angenommen. 

4.4 Der light shift 

Ab etwa Oktober 1985 traten systematische Rcstfchler auf, die auf einen light shift hindeuteten, da sie 
zu erheblichem Anteil kurzzeitig und beobachtcrabhängig waren. In der nachfolgenden Zeit wurde eine große 
Zahl an Rechnungen durchgeführt, um den Einfluß des light shifts und der nichtgravitativen Kräfte sowie 
verschiedener Annahmen und das Zusammenwirken beider Effekte sowie sonstiger fraglicher Sachverhalte 
auf die Bahnbestimmungen zu erklären. Insbesondere wurde der light shift einerseits nach dem in §2.7 
angegebenen Verfahren, andererseits durch den Ansatz einer Funktion der heliozentrischen Distanz - meist 
wurde s(r) — g(r) (Stil 2) nach Gl. 1.4 verwendet - zu berücksichtigen versucht. 

Bei der vorliegenden Untersuchung der nichtgravitativen Kräfte geht es hauptsächlich darum, den light 
shift auf die als bestmöglichst erscheinende Weise zu eliminieren. Daher soll sich hier auf die Erörterung der 
letzten Ergebnisse beschränkt werden; diese wurden kurz vor dem Vorbeiflug der Raumsonden erhalten 121 . 

Diese Ergebnisse sind in Tab. 4.7 zusammengestellt. 
Sic erlauben folgende Schlüsse: 

a) Die Änderung bei Verwendung von DE119 statt CPT-81 beträgt in x und y +200 km und —170 km bei 
Verwendung von Rcktaszcnsion und Deklination (l"/2") bzw. +100 km und — 140 fcm bei Verwendung von 
Positionswinkcl und Elongation (3"/4"), wobei die Ergebnisse mit CPT-81 besser waren. Da die Differenz 
im Erdort nur wenige km beträgt, liegt dies hauptsächlich an den unterschiedlichen Planetenmassen. 

b) Die Abhängigkeit vom Modell für die nichtgravitativen Kräfte (3"/H"/..15",5'/..10',5/7/..10) war 
unabhängig von dem verwendeten Bcobachtungsmatcrial erheblich. Daraus folgt, daß die Kenntnis der 
tatsächlichen Position durch die Vega-Bcobachtungen einen wichtigen Beitrag für die Entscheidung liefert. 
Die Lösungen 7-10 sollten überprüfen, inwieweit die systematischen Abweichungen in Elongation durch 
unterschiedliche nicht gravi tative Kräfte darstellbar wären; dies war kaum der Fall. 

c) Um den Einfluß des nichtgravitativen Kräfte verlauf es auf die vorausberechnete Position und auf 
die Darstellung des light shiftes soweit wie möglich auszuschalten, wurden als Lösungsvorschlag 9", 10", 
4'-ll' die Beobachtungen weiter als 2 Monate von den Pcrihcldurchgängen 1835,1910 und 1986 entfernt 
nicht verwendet, da während 60 Tagen auch Fehler der Größenordnung der Kräfte selbst nur etwa 200 km 
systematischen Effekt erzeugen können, der bei Ausschluß der weit entfernten Beobachtungen größtenteils 
durch die Bahnvcrbcsscrung angepaßt wird. Die mittleren Fehler stiegen dabei mehr an. als es der zu 
erwartenden Verringerung des systematischen Fehlers entspricht, sodaß dies nicht wcitcrverfolgt wurde. 

d) Setzt man den light shift als eine Funktion des heliozentrischen Abstandcs an und löst nach den darin 
vorkommenden Parametern auf. wird er nur unzulänglich eliminiert. Der Ort des Kometen ändert sich um 
800 km (3/1), der Fehler zum tatsächlichen Ort war über 500 km. Es verblieben noch deutliche Rcstfchler 
in Elongation. Sic können prinzipiell schon deshalb nicht auf diese Weise eliminiert werden, weil sie beob- 
achtcrabhängig sind, d.h. nicht bestimmt ist, welche Größe der light shift zu einer bestimmten Zeit hat. 
Im Gegensatz zu der Situation bis Ende 1985 war es später auch nicht länger möglich, diejenigen der Beob- 
achtungen mit den geringsten Rcstfehlcrn 122 zu verwenden (siehe auch Bahn 5 und e)), weil auch bei ihnen 
Diskrepanzen zu der vorangegangenen Bewegung auftraten, die auf einen systematischen Fehler hindeuten. 

Diese Ergebnisse mögen auch Hinweise für Vorausberechnungen anderer Kometen, etwa für Sondenprojekte, geben 
also vermutlich der geringsten Belichtungszeit 
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Funktionelle Darstellungen s(r) wurden außerdem in keinster Weise dem gerecht, daß die Positionsunsi- 
cherheit durch das Vorhandensein eines light shifts erheblich größer ist als ohnedem; infolge des geringeren 
mittleren Rcstfchlcrs wurde die formale Positionsunsicherheit sogar geringfügig kleiner (5"/7",l/3). 

e) Die teilweise oder völlige Nichtvcrwcndung der Elongationcn ergab eine um etwa 600 km geringere he- 
liozentrische Distanz. Dies betrifft die wesentlichste Auswirkung des light shiftes auf die Berechnungen (siehe 
§2.7) . Festzuhalten ist besonders, daß weder die Variation des Kräftcmodcllcs noch die der verwendeten 
Planctencphcmcridc {a-c}) die heliozentrische Distanz des Kometen bei einer vorgegebenen heliozentrischen 
Länge veränderten, sondern hauptsächlich den Ort entlang seiner Bewegungsrichtung, die Annahme eines 
entfernungsabhängigen light shift (d)) verringerte die Distanz nur unzulänglich 124 . Als Kontrolle, ob noch 
signifikante Reste des light shift in der geringen Anzahl verwendeter Elongationcn um die Oppositionszei- 
ten enthalten sind, wurde Lösung 7" durchgeführt; offensichtlich war dies nicht der Fall. Mit Lösung 5-10 
sollte überprüft werden, ob sich die systematischen Abweichungen in den besten Beobachtungen durch die 
nichtgravitativen Kräfte darstellen lassen. Dies war nicht der Fall. Systematische Rcstfehlcr sind somit 
auch in den offenbar sehr kurz belichteten Beobachtungen. Auch hier blieb die heliozentrische Distanz fast 
unverändert. 

Es war insofern vorabzusehen, daß die Lösungen ohne Verwendung der Elongationcn die genauesten 
Vorausbcrcchmmgcn ermöglichen, was sich bei dem Vorbeiflug der Vega-Sondcn dann auch bestätigte (siehe 
Tab. 4.6). 

Aus den Rcstfchlcrn in Elongation der Beobachtungen bis August 1986 wurde später der Verlauf des 
light shift wie in §2.7 angegeben abgeschätzt. 

In Bezug auf die Behandlung des light shift beim Hallcyschcn Kometen ist daher zu sagen: Der light 
shift existiert. Er beträgt in Pcrihclnähc einige Bogcnsckundcn. entsprechend über 1000 km. Insbesondere 
die Berechnung der nichtgravitativen Kräfte in verschiedenen Bahntcilcn ist empfindlich gegen systematische 
Beobachtungsfehler dieser Größenordnung (siehe Abb. 3.1). Sie lassen sich mit keinem bekannten Verfahren 
beseitigen. 

Aus diesen Gründen wurde bei allen weiteren Rechnungen so verfahren, daß, mit Ausnahme der Beob- 
achtungen sehr nahe den Oppositionen, bei r < 2 AE die Elongationcn nicht verwendet wurden. 

4.5 Ergebnisse für die nichtgravitativen Kräfte in verschiedenen Bahnteilen 

Wie bei den vorangegangenen Rechnungen wurde die Bahn in drei Tcilstückc unterteilt, für welche die 
nichtgravitativen Parameter bestimmt wurden. 

Die Wahl der Grenzen fiel aufgrund der folgenden Erwägungen auf ri im — 1AE. Die nichtgravitative 
Beschleunigung nimmt zum Pcrihcl hin zu. ebenso die Anzahl der vorliegenden Beobachtungen. Wird der 
untere Bahnabschnitt verhältnismäßig klein gewählt, wirkt sich die Diskrctisicrung bei einem fehlerhaften 
Verlauf weniger auf die Ergebnisse für den äußeren Bereich aus (siehe Pkt. 8) in §3.1), dennoch sind 
die Parameter im unteren Teil noch immer gut bestimmbar (siehe Tab. 4.8). Außerdem macht sich eine 
nichtgravitative Beschleunigung in einem Bahnabschnitt erst in größerer Distanz im Ort bemerkbar (siehe 
Abb. 3.1). Zur möglichst guten Bestimmung der Beschleunigungen sollte am Anfang des äußeren Intcrvallcs 
der Ort des Kometen noch durch möglichst viele Beobachtungen festgelegt sein. Die Konjunktionen Mitte 
1985 und 1986, welche den Zeitraum der meisten Beobachtungen einschließen, ergeben eine Lücke im Bereich 
r ra 2,5. ..4AE. 

In Tab. 4.8 sind die Ergebnisse der Bahnrechnungen unter Annahme eines Kräfte Verlaufes nach Stil 2 
angegeben. Neben der allgemeinen Lösung nach allen 9 Parametern (Bahn 1) sind noch diverse Lösungen 
unter zusätzlichen Bedingungen durchgeführt worden. Davon sind diejenigen aufgeführt, bei denen für das 
Verhältnis AijA\ vor und nach dem Pcrihcl derselbe Wert angenommen wurde (Bahn 4-8), sowie jene mit 
der Annahme desselben Wertes für A\ (Bahn 2) und A2 (Bahn 3) für die beiden äußeren Bahnbögen. 



ebenso auf Vorbeiflugdistanz und -richtung (flllSS VCCl.OV) der Raumsonden 
nach ESOC, loc.Clt. 4, Abb. 12 wurde sie sogar vergrößert 
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Tabelle 4.8 Parameter für nichtgravitative Kräfte nach Stil 2 
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Angegeben sind die oskulicrenden Elemente zur Epoche 1986 Februar 19,0 TDB (bezogen auf das FK5- 
Systcm B1950), die heliozentrischen rechtwinkligen Koordinaten zur Epoche 1986 März 14.0 TDB (bezogen 
auf das System von DE118), und die nicht gravi tativen Parameter für den pcrihelnahcn Teil der Bahn mit 
r < 1,0 AE (j — 1) und den absteigenden und aufsteigenden Ast der Bahn mit r > 1,0 AE (j — 2,3). Bei 
Bahn 1 wurde nach allen neun Parametern aufgelöst. Bei Bahn 2 wurde A\. bei Bahn 3 wurde Ai für die 
beiden äußeren Bahnteile als gleich angenommen. Bei den anderen Bahnen wurde das Verhältnis AifA\ für 
die beiden äußeren Bahnteile vorgegeben. 



Tabelle 4.9 Parameter für nichtgravitative Kräfte nach Rickman/Froeschle 
Nr. T(TDB) ±q±c ± u ± fi 



i 



1 1986 Fcb 9,458839 15 0,58710200 13 0,96726856 120 111,846267 23 58,143457 12 162,239454 10 

2 9,458836 15 0,58710196 13 0,96726823 123 111,846258 24 58,143457 12 162,239455 10 

3 9,458835 16 0,58710193 13 0,96726810 126 111,846253 24 58,143457 12 162,239455 10 

4 9,458838 15 0,58710203 13 0,96726852 119 111,846271 24 58,143457 12 162,239454 10 

5 9,458834 15 0,58710197 14 0,96726809 123 111,846257 24 58,143457 12 162,239455 10 



r 

2' 
3' 
4' 
5' 



Xr. 



9.458838 14 0,58710201 11 
9,458833 15 0,58710200 11 
9,458830 15 0,58710199 12 

9.458839 14 0,58710202 11 
9,458832 15 0,58710201 11 



96726851 118 111,846268 23 58,143457 12 162,239454 10 

96726809 121 111,846261 23 58,143458 12 162,239454 10 

96726787 123 111,846256 24 58,143458 12 162,239454 10 

96726856 117 111,846269 22 58,143457 12 162,239454 10 

96726799 122 111,846261 23 58,143458 12 162,239454 10 
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l? 



1,24 
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7,33 11,01 
-5,40 3,64 
10,15 2,68 



3,63 
-4,52 
4,54 



2,77 

2.05 
1.13 



A< 



-,006 2 
,082 12 
,207 12 



-,005 

.081 



,208 12 

-,005 2 

,080 12 

,208 12 

-,006 2 

,082 12 

,207 12 

-,005 2 

,081 12 

,208 12 



1.23 
1,77 



1.29 
2,31 

1,35 
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1,23 
1,63 

1,34 
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9 
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10 
43 



11 
51 
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31 



10 
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4.00 
-3,62 

6.-17 

1.86 
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4,73 

1.11 
-3,03 
4,77 

9.12 
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9,71 

2,09 
-3,46 
5,25 



9 

81 
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5 
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4 
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61 
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1,33 

1.31 

6 
73 
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-,005 
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Nr: Modell-Nr. (siehe Abb. 1.4). Angegeben sind die oskulicrenden Elemente zur Epoche 1986 Februar 
19,0 TDB (bezogen auf das FKs-Aquinoktium B1950) und die nichtgravitativen Parameter für den pcrihcl- 
nahen Teil der Bahn mit r < 1,0 AE (j — 1) und den absteigenden und aufsteigenden Ast der Bahn mit 
r > 1,0AE (j — 2,3). Bei den entsprechenden Lösungen ' wurde Ai für die beiden äußeren Bahnteile als 
gleich angenommen. 



Die Lösungen 4-8 wurden hauptsächlich zum Vergleich mit den früheren Resultaten aufgeführt 125 . Ob- 
wohl sich die statistische Signifikanz seither nicht mehr wesentlich verbessert hat, treten in den inzwischen 
erfolgten Sonnenfernen Beobachtungen Unterschiede in den Rcstfchlcrn auf, die nahelegen, daß die allgemeine 
Lösung diesen Annahmen vorzuziehen ist. 

Die allgemeine Lösung hat allerdings den Mangel, daß die nichtgravitative Kraft in der zweiten Bahnhälfte 
kleiner als in der ersten ist. Der Komet ist nach dem Pcrihcldurchgang heller als zuvor, was eher das Gegenteil 
vermuten läßt. Um dem Rechnung zu tragen, wurde die Lösung 2 durchgeführt. Dabei wurde die Bedingung 
gestellt, daß Ai in beiden äußeren Bahntcilcn gleich ist 126 : infolge der Werte von A$ ist damit die nichtgra- 
vitative Kraft nach dem Pcrihel etwas größer. Diese Lösungen beruhen insofern nicht ausschließlich auf den 
astrometrischen Beobachtungen, sondern es wird noch eine weitere, unabhängige Kenntnis mit eingebracht. 
In Bezug auf die Restfehlcr der äußeren Beobachtungen war diese Lösung noch akzeptabel. 

Bei Lösung 3 wurde versuchsweise Ai in den äußeren Bahntcilcn gleich gesetzt, was aber eine deutlich 
schlechtere Darstellung der äußeren Beobachtungen ergab. 

Um Aussagen zu erhalten, die von dem zufällig gewählten Verlauf g (r) möglichst unabhängig sind (siehe 
§3.1 Pkt. 8)) 7 ist es erforderlich, diesen zu variieren. Auch wenn die den Modellen von Rickman und Froeschle 
zugrunde liegenden Annahmen über die physikalische Beschaffenheit des Kometen äußerst fragwürdig sind, 
so spricht nichts dagegen, allcinc im vorgenannten Sinne statt willkürlich gewählten anderen Funktionen 
diese Modelle weiterhin zu verwenden. 

In Tab. 4.9 sind die Ergebnisse einer allgemeinen Lösung nach den neun Parametern sowie einer Lösung 
unter der Annahme desselben Wertes für Aj in den äußeren Bahnbögen für jedes der fünf Modelle gegeben. 
Als nichtgravitative Parameter wurden hier die Korrekturfaktoren der aus Abbildung 1.4 ersichtlichen Mo- 
delle verwendet. Beim Vergleich mit den Ergebnissen von Tab. 4.8 ist insofern zu bedenken, daß die Modelle 
für beide Komponenten unterschiedlich verlaufen. Für A;j sind keine Modelle vorhanden, hier wurde g(r) 
nach Stil 2 beibehalten, was zumindest ersehen läßt, inwieweit die A 3 von den anderen Parametern und 
Elementen unabhängig sind. 

Bei allen Komponenten nimmt das Ergebnis für die Parameter zu, wenn der Modcllvcrlauf geringer wird 
und umgekehrt, sodaß der Wert der Beschleunigungen zumindest ähnlich ist. Für A<i im pcrihclnahcn Teil 
allerdings ist die Übereinstimmung der um seine Werte verschobenen Kurven nicht gut. 

Außer den angegebenen Lösungen wurden auch noch zahlreiche weitere mit anderen Bedingungen an 
die Auflösung nach den Unbekannten durchgeführt. Neue grundsätzliche Lösungen ergaben sich dabei aber 
nicht. Die Ergebnisse waren entweder schlechter, wobei als Kriterium ebenfalls die Restfehlcr der sehr 
fernen Beobachtungen und Plausiblitätsbctrachtungcn herangezogen wurden, oder im Prinzip ähnlich den 
angegebenen Lösungen, sodaß davon abgesehen wurde, sie detailliert aufzuführen. 

Die wesentlichsten Ergebnisse sind die Werte für A3 in den drei Bahnabschnitten, welche die Lage der 
Rotationsachse festlegen (siehe §4.2). Diese Ergebnisse haben sich gegenüber den früheren kaum verändert. 

Des Weiteren ist gemäß allen Lösungen sowohl die nichtgravitative Kraft als auch der lag angle in den 
äußeren Bereichen signifikant größer als im pcrihclnahcn Teil der Bahn. Dies ist maßgeblich bedingt durch 
die Komponente A3, jedoch auch A\ nimmt sehr wahrscheinlich langsamer mit zunehmender Distanz ab als 
gemäß allen Modellen. 

Der Sachverhalt, daß die berechneten Parameter für die äußeren Bahnbereiche signifikant von Null 
verschieden sind, widerspricht dem Impulsmodcll. 

In Tab. 4.1Ü sind für alle Modelle die Ergebnisse der allgemeinen Lösung unter Verwendung nur der 
Beobachtungen aus der gegenwärtigen Erscheinung gegeben. Bcmerkcnswcrtcrwcisc sind die mittleren Fehler 
der Parameter nur etwa doppelt so groß wie bei Verwendung der Beobachtungen seit 1835. Für weiterge- 
hende Schlußfolgerungen sind diese Ergebnisse zwar nicht geeignet, denn in den Beobachtungen seit 1982 
sind Informationen über die Umlaufszcit sowie über die säkulare Änderung derselben nur sehr ungenau ent- 
halten, und die Ergebnisse sind daher wesentlich anfälliger gegen jegliche systematischen Fehler. Zumindest 
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Der sehr kleine mittlere Fehler von A 2 in Lösung 2 von Tab. 4.8 und Lösung l'-5' in Tab. 4.9 bringt zum Ausdruck, 
daß bei symmetrischem Verlauf von A\ die Unilaufszeitänderung nur durch A2 bedingt sein kann, siehe Pkt. 3) in §3.1 
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Tabelle 4.10 Nichtgravitative Parameter aus Beobachtungen 1982 - 1988 
Nr. T(TDB) ±q±c ± u ± Ü ± 



i 



1986 Fcb 9,458811 19 0,58710282 18 0,96726490 157 111,846316 33 58,143446 11 



1 
2 
3 
4 
5 

Nr. 



9.458803 19 0,58710272 21 0,96726447 160 111,846293 37 58,143446 11 

9.458804 20 0,58710274 21 0,96726451 166 111,846297 40 58,143445 11 
9,458806 21 0,58710276 22 0,96726453 172 111,846301 41 58,143445 11 
9,458802 18 0,58710270 21 0,96726444 153 111,846290 37 58,143446 11 
9,458804 21 0,58710274 22 0,96726439 171 111,846296 42 58,143445 11 



162.239449 15 
162,239445 15 
162,239448 15 

162.239450 15 
162,239443 15 
162,239448 15 



A{ 



M 



,175 26 
,514 166 
.672 123 



1.21 
4,22 

4.21 



18 

1,27 

95 



1,24 20 
5,22 1,65 
5,53 1.15 



1.28 
6,31 
7,00 

1.22 
3.95 
3,74 



21 
2,09 
1,37 

18 

1.18 
90 



1,30 21 
5,49 1,77 
5,68 1,19 



.012 27 

-,158 64 

-,163 83 

5,0 8,6 

-11,8 5,0 

-22,1 6,9 



2.4 

-9,4 

-11,0 

1,6 
-9,4 
-8,3 

10.1 
-19,5 
-39.5 



3.7 
3.1 
4,3 

2.1 
3.2 
4,0 

17,0 

8,7 
11.3 



3,0 4,4 
-11,1 3,9 
-11,5 4,7 



,001 3 

,049 21 

,133 37 

,002 3 

,044 21 

,120 37 

,002 3 

,043 21 

,126 37 

,002 3 

,043 21 

,131 37 

,002 3 

,044 21 

,117 37 

,002 3 

,043 21 

,127 37 



Nr: Modell-Nr. (siehe Abb. 1.4). Angegeben sind die oskulicrenden Elemente zur Epoche 1986 Februar 
19,0 TDB (bezogen auf das FK 5 -Aquinoktium B1950) und die nichtgravitativen Parameter für den perihel- 
nahen Teil der Bahn mit r < 1,0 AE (j — 1) und den absteigenden und aufsteigenden Ast der Bahn mit 
r > 1,0 AE {j = 2,3). 



wicdcrsprcchcn diese Ergebnisse aber den hauptsächlichen Befunden nicht, daß der lag angle mit der Ent- 
fernung zunimmt, sowie daß in den äußeren Balmtcilcn A3 signifikante positive Werte annimmt, im inneren 
Balmtcil dagegen effektiv verschwindet. 

Der Sachverhalt, daß bereits aus einer Erscheinung diese Parameter nahezu signifikant berechnet wer- 
den können 127 , ist für die künftige Zeit von großem Wert, um Veränderungen der einzelnen Komponenten 
während einer Erscheinung überprüfen zu können 128 . Allerdings läßt der Sachverhalt, daß sich die Um- 



im Wesentlichen ist dies hier durch die jährliche Parallaxe und das lange Zeitintervall der Sonnenfernen Beobachtungen 

möglich 

Statt aus den beiden einzelnen Erscheinungen jeweils 9 (oder mehr) Parameter zu bestimmen, ist es dann vorteilhafter, 

aus beiden Erscheinungen kombiniert die insgesamt 18 Parameter (und die Elenrente) zu bestimmen, weil dann die 

Bewegung des Kometen stetig dargestellt wird und die beobachtete Unilaufszoit in die Rechnung eingeht 



,M) 



laufszcitändcrung, also der integrale Effekt der Kräfte, säkular nur um weniger als 1% pro Umlauf ändert, 
vermuten, daß dies auch für die Kräfte in den einzelnen Bahntcilen der Fall ist. 

Für die Erarbeitung und Kontrolle von Modellrechnungen (§1) wäre es von sehr großem Wert, die Größe 
der nichtgravitativen Beschleunigung bei bestimmten Werten der heliozentrischen Entfernung zu kennen. Es 
ist nicht unmittelbar möglich, von den nichtgravitativen Parametern auf diese zu schließen. Die Ergebnisse 
für die Parameter stellen qualitativ eine Faltung des wahren Verlaufes mit dem angenommenen g(r) sowie 
mit der Verteilung der Beobachtungen dar. 

Die Abhängigkeit von dem angenommenen Verlauf läßt sich aber zumindest verringern, indem man 
in Abbildung 1.4 die Modelle um die Werte der entsprechenden nichtgravitativen Parameter verschiebt. 
Schneiden sich die so erhaltenen Kurven in einem Punkt, und geht man davon aus, daß der wahre Verlauf 
im Bereich der Modelle liegt, kann man folgern, daß auch dieser den Punkt schneidet. Der betreffende Wert 
der heliozentrischen Distanz stellt daher gewissermaßen einen Mittelwert des Bahnabschnittes dar, auf den 
die berechneten Beschleunigungen zutreffen. 

Für A\ war es im pcrihelnahcn Teil nicht möglich, hierüber ein Ergebnis zu erhalten, weil in diesem 
Bereich der Verlauf aller Modelle praktisch gleich ist. Für die äußeren Bereiche erhält man für die Ergeb- 
nisse sowohl aus Tab. 4.8 als auch aus Tab. 4.9 einen Schnittpunkt bei etwa r m 1,5 AE. Der Wert für 
die Beschleunigung ist jedoch bei den beiden Arten von Lösungen erheblich unterschiedlich, was besagt, daß 
diese Entfernung nur eine Mittelung hinsichtlich der g(r), nicht jedoch auch hinsichtlich der Beobachtungs- 
verteilung, darstellt. 

Für Ai war es ebenfalls nicht möglich, im pcrihelnahcn Teil ein Ergebnis zu erhalten, weil sich die 
Kurven nicht deckten und sich auch nicht mit dem Ergebnis nach Stil 2 schnitten. Für die äußeren Bereiche 
ergab sich eine gute Übereinstimmung bei r ~ 1,8 AE. 

Bei Modellrcchnungcn empfiehlt es sich daher, die Ergebnisse mit denen der Bahnrechnungen bei den 
genannten Werten der heliozentrischen Distanz zu vergleichen. 



81 



Schlußbetrachtung 



Mit der gegenwärtigen Erscheinung des Hallcyschcn Kometen war es erstmals möglich, Aussagen über 
den Verlauf der nichtgravitativen Kräfte eines Kometen zu machen. Wenn dies auch noch mit gewissen Ein- 
schränkungen behaftet ist, so stellt es - etwa über Modcllrcchnungen mit zahlreichen Annahmen hinaus - den 
Anfang der direkten Lösung dieser schon seit langem vorliegenden Fragestellung dar. nämlich anhand der 
Bewegung zu berechnen, wie die Bewegung tatsächlich ist. Umgekehrt können dann anhand geeigneter Mo- 
dcllrcchnungen Aussagen über physikalische Parameter der betreffenden Kometen erfolgen. Darüber hinaus 
sind bessere Kenntnisse der nichtgravitativen Kräfte von großer Bedeutung für die genaue Vorausberechnung 
der Kometen. 

Es erscheint äußerst fragwürdig, ob sich die hier erhaltenen Ergebnisse grundsätzlich auf andere Kometen 
verallgemeinern lassen, denn abgesehen von den individuellen physikalischen Zustandsgrößcn ist der Hallcy- 
sche Komet offenbar ein sehr alter, bereits strukturell differenzierter Komet. Insofern wäre es wünschenswert, 
entsprechende Rechnungen auch für andere Kometen durchzuführen. Eine Fchlcrabschätzung ergibt, daß sich 
bereits mit einer verhältnismäßig geringen Zahl an Beobachtungen der entfernteren Bahnteile signifikante 
Aussagen erhalten lassen. Bedauerlicherweise fehlt es jedoch an entsprechenden Beobachtungen. 

Der Verfasser regt daher an, astrometrische Beobachtungen von periodischen Kometen in möglichst 
großer heliozentrischer Distanz durchzuführen. 
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Anhang 



Nachfolgend ist eine Liste des für die Berechnungen verwendeten Programmcs gegeben. Das Programm 
hat der Verfasser während seines Studiums in Siegen und Göttingen erstellt und fortlaufend erweitert. Es 
ermöglicht Bahnrechnungen von großen und kleinen Planeten, Kometen und entfernteren Monden, und ist 
daher vermutlich auch unabhängig von der vorangegangenen Untersuchung der Bewegung des Hallcyschcn 
Kometen von Interesse. 

Zur Verwendung des Programmcs ist die Beachtung der darin enthaltenen Kommentare notwendig und 
ausreichend. Dennoch sind einige Beispiele zur Dateneingabe für verschiedene Anwendungsfällc vorangestellt. 



Integration von 9 Planeten. Schrittweite -0,4 Tage. 105 Schritte, Startepoche JD 2447400.5. Eingabe 
oskulicrende Elemente, Ausgabe eine binäre Datei mit den Koordinaten aller Planeten für jeden Schritt 
(Datei 8) sowie der Initialwcrte und Elemente im Eingabeformat für alle 20 Schritte (Datei 9). 



9 00105 -0.400 020-020 2447400.5 1000. 122 10 10 1 bin. File erz. 
.01720209895 

19880827.00 134.1131997101034 .387099220262044 .205628584679129 6023600.000 2 

2 2447400.5 29.0508449290462 47.6893052017849 7.0017508912624 
19880827.00 250.1672433250016 .723327366919832 .006791830994669 408523.500 3 

3 2447400.5 54.9614234773582 76.1215468104835 3.3939158564254 
19880827.00 232.6934103666568 .999998702025347 .016732299589298 328900.200 4 

4 2447400.5 287.2702720242431 174.9471380246817 .0051131057549 
19880827.00 7.5706971129674 1.523652518392231 .093273134325224 3098710.000 5 

5 2447400.5 286.2609288079170 49.0612119289268 1.8469260383833 
19880827.00 34.3625583969123 5.203157692128119 .048191160793583 1047.348 6 

6 2447400.5 274.9203726069469 100.0463881615100 1.3065136084337 
19880827.00 179.5080559084577 9.523549922835115 .054690402215697 3498.000 7 

7 2447400.5 338.0529427518168 113.1184501641368 2.4894628477570 
19880827.00 95.3331040796335 19.169027264347867 .046313116796772 23030.000 8 

8 2447400.5 94.9052826851921 73.8137732591728 .7717481584707 
19880827.00 236.1425235728920 30.046994556820747 .010382598058937 19314.000 9 

9 2447400.5 272.1873131803084 131.2490300656676 1.7739323042459 



Erste Bahnbcstimmung eines Kometen. Die Planeten sollen mitintegriert werden. Schrittweite 2 Tage. 
Bis zu 3 Bahnverbesserungen, die Koeffizienten der Bcdingungsglcichungcn werden maximal 1 mal berechnet. 
Nach der letzten Bahnvcrbcsscrung soll eine Ephcmcridc vom 1.11.1985 bis zum 23.11.1985 im Intervall von 
einem Schritt gerechnet werden, dazu auch die mittleren Fehler der Ephcmcridcnörtcr. 



9 00015 02.000 500500 2446400.5 1000. 122 3 11 
.01720209895 

19851131.00 1.7799572289711 .387097608130708 .205631665013277 6023600.000 2 

2 2446400.5 29.0430567877802 47.6931146886166 7.0018723626744 DT=0.40 
19851131.00 88.3961266849295 .723328075762686 .006822712219762 408523.500 3 

3 2446400.5 54.5962898388336 76.1289383820882 3.3937949109433 DT=0.40 
19851131.00 327.0213580880998 .999983145128089 .016698423325071 328900.200 4 

4 2446400.5 287.8943689523527 174.3847122320452 .0047123152671 DT=0.40 
19851131.00 203.5504404331170 1.523715650331214 .093317360098820 3098710.000 5 

5 2446400.5 286.2410184847998 49.0670944340371 1.8470179969678 DT=0.40 
19851131.00 311.2740462092247 5.202522181699525 .048070936894363 1047.348 6 

6 2446400.5 274.9176970631991 100.0455239846385 1.3065189778000 DT=0.40 
19851131.00 145.4857001881455 9.554059406113802 .051490477679338 3498.000 7 

7 2446400.5 338.6350918324832 113.1443084391902 2.4878553845108 DT=0.40 
19851131.00 77.4182846632826 19.267019524843588 .046303770015014 23030.000 8 

8 2446400.5 101.1026496746954 73.8372117539682 .7734387809595 DT=0.40 
19851131.00 268.0241431420762 30.239730681156155 .007845656150393 19314.000 9 

9 2446400.5 234.2961749318016 131.2571247880773 1.7735113268881 DT=0.40 
*** Komet 1985p Ciffreo *** 

19851131.0 101 00 19851101. 19851123. 

19851131.0 

R 10 6.85 309. 293. INAG-CERGA ST. VALLIER DE THIEY 

R707 254.56 330. 270. CHAMBERLIN FIELD STATION (EVERHART) 

1985 11 08.10312 04 32 47.49 +23 24 56.4 010 

1985 11 15.01771 04 29 31.82 +25 20 13.5 010 

1985 11 22.48333 04 24 29.52 +27 20 47.2 707 



Bahnvcrbcsscrung eines Kometen mit zahlreichen nichtgravitativen Parametern. Angenommen werden 
nichtgravitative Kräfte vom Stil 2 (Eingabe K 2). die Bahnstückc sind bei r = 1 AU vor und nach dem 
Pcrihcl begrenzt. Die in der letzten Eingabczcilc nrit 1 kodierten Unbekannten werden nicht verbessert. 



9 00505 +1.200 500 500 2446200.5 1000. 122 2 0-1 10 
8 9 E 

*** Halley' scher Komet *** 
F 
N 

K 2 +0.00 0.000 0.0000 0.000 0.000 -1.0 +1.0 
19860219.0 101 19860219. 19860219. 

19860209.458884645248 0.0 .58710264617337 .967271578842814 

111.846408242306 58.143474575028 162.239328752362 

All 0.105003704720 
A21 0.002718686850 
A31 0.007787709287 
A12 0.169093912002 
A22 0.033818782400 
A32 0.002035486849 
A13 0.249027030062 
A23 0.049805406012 
A33 0.216728273729 
$ 

R576 0.38 
R 95 34.02 
R190 68.68 
R892 141. 
R801 288.44 
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Bahnvcrbcsscrung eines Asteroiden. Die Planeten sollen nicht mitintegriert, sondern von Datei E:9 
gelesen werden. Eingabe der Elemente formatfrei. Anschließend Berechnung einer Ephcmcridc mit mittlerem 
Fehler. 



9 00015 00.800 500050 2446400.5 1000. 122 2 0-1 1 
8 9 E 

*** (3683) 1987 MA *** Entd. 1987 Jun 23 v. W.Landgraf, GPO-Tel. ESO/Chile 
F 

19870724.0 101 00 19870727. 19871201. 

19870724.0 047.2306 3.132938 0.115337 139.6607 102.2506 15.6954 

R809 289.27 372. -207. European Southern Observatory, La Silla 

1987 06 22.32153 20 31 34.91 -23 20 03.2 809 

1987 06 23.35174 20 31 09.60 -23 27 41.7 809 

1987 06 24.29688 20 30 45.01 -23 34 44.0 809 

1987 06 25.06563 20 30 24.29 -23 40 29.8 809 

1987 06 25.31771 20 30 17.01 -23 42 22.1 5 5 809 

1987 06 26.42188 20 29 44.84 -23 50 50.4 809 

1987 06 27.06979 20 29 25.90 -23 55 48.0 809 

1987 06 27.43056 20 29 14.32 -23 58 36.2 809 

1987 06 29.24949 20 28 16.62 -24 12 42.6 809 

1987 06 31.42569 20 27 01.45 -24 29 50.8 809 



Bahnvcrbcsscrung eines Mondes mit anschließender Ephcmcridc. Der Zcntralkörpcr ist Planet 9 (Ein- 
gabe Z 9). Verwendet werden Relativpositioncn zum Zcntralkörpcr. 



9 02015 0.80 020 020 2445000.5 1000. 122 2 0-1 1 
8 9 E 
Z 9 

*** Nereide *** 
F 

19801227.0 105 00 19801120. 19810204. 
19810104.000 122.9692533377 0.036925137991 0.755599320668 

295.3225241862 320.0032690027 5.0050643934 
R809 289.27 372. -207. European Southern Observatory 
R568 204.53 401. 144. Mauna Kea 
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CUNI COMPILER(PAGESIZE=32K) 

C COMPILER ( NBRPAGES= 12 0) 

CUNI COMPILER(NBRPAGES=185) 

C VIRTUAL /BD800/ 

CUNI VIRTUAL ( UNPACKED ) /BD800/ , /ANFG/ , /KOEFF/ , /BEOB/ , /GEWI/ , 

CUNI . /BEI/, /BE2/,/STERNW/ 

C NBRPAGES=2 3 7,PAGESIZE=32K,LREC=7 000 

C PROGRAM BAHN ( INPUT , OUTPUT , TAPE5=INPUT , TAPE6=OUTPUT , TAPE9=PUNCH ) 

C Entworfen an der Sternwarte der Gesamthochschule Siegen und der 

C Universitäts-Sternwarte Göttingen von W.Landgraf 

C* Programm zur Bahnbestimmung und numerischen Integration von Himmelskörpern. 

C* Im Wesentlichen können folgende Rechnungen durchgeführt werden : 

C* 1) Integration von mehreren Himmelskörpern und Ausdruck von 

C* Ort, Geschwindigkeit und oskulierenden Elementen 

C* 2) Einlesen und Mitintegration eines zusätzlichen Körpers 

C* zwecks Berechnung einer Ephemeride und/oder Nachrechnen von 

C* Beobachtungen 

C* 3) Bahnbestimmung und Bahnverbesserung des zusätzlich 

C* eingelesenen Körpers incl. Berechnung evtl. weiterer Unbekannter 

C* wie Planetenmassen o.a., ggf- anschließend Berechnung einer Ephemeride. 

C* U.a. können dabei beliebige Kombinationen oder einzelne der 

C* Unbekannten konstant gehalten werden. 

C Bedeutung der verwendeten Größen 

C* TZ,IEPHE,IANFG,IENDE,IUT, IOBS 

C Zeit, zu welcher der Zusatzkörper hinzukommt; Schrittweite 

C sowie Anfang und Ende der Ephemeride in Schritten von TZ an gezählt; 

C Angabe, ob Ephemeride für ET oder UT erwünscht ist; Anzahl der Beobachtungen 

C* TOBS,RA,DEKL,DW,DY,DZ,P,RES,NTOBS 

C Zeit;Rektaszension; Deklination; Parallaxe in X,Y,Z bzw. nach der ersten 

C Bahnverbesserung, heliozentrische Koordinaten des Beobachters; 

C Gewicht in RA und Dekl; Residuais in RA und Dekl . nach vorangegangener 

C Bahnverbesserung; und Anzahl der Schritte seit der Oskulationsepoche 

C der evtl. eingegebenen Beobachtungen des Zusatzkörpers 

C* NSTW,DXY,DZO,STWL,NSTW 

C Anzahl der vorkommenden Sternwarten; parallaktische Faktoren; 

C östliche geographische Länge; MPC-Nr. oder andere Kennnummer der Sternwarte 

C* N,NF,NZENTZ 

C Steuerungsgrößen. N Gesamtzahl der momentan integrierten Objekte. 

C Anfangs Anzahl der großen Planeten, dann 1 oder 7+NGR mehr , jenachdem 

C ob IBV0=0 oder>l, nach der IBVO -ten Bahnverbesserung aber nur 

C noch 1 mehr. NF Index des letzten Himmelskörpers (anfangs Index 

C des letzten Planeten, dann Index des Zusatzkörpers). NZENTZ Index desjenigen 

C Körpers, auf den ein- und ausgegebene Elemente des Zusatzkörpers bezogen 

C sind, falls nicht der Zentralkörper (z. Bsp. bei Monden des betr. Planeten). 

C* NANZ,DT,ID,IELEM,ANF,DGESCH,IFELEM,IBVO,IFBVO,IEND,IBZ,NGLEI 

C Anzahl der auszuführenden Integrationsschritte (wird beim Zusatz- 

C körper aus allen anderen Angaben berechnet); Integrationsschritt- 

C weite in Tagen (bei kleinen Planeten z.Bsp. 1.0 d, bei Kometen usw. 

C mit q<0.5 AE etwa 0.4 oder 0.5 d); Intervall zum Ausdrucken 

C von Ort bzw. von Geschwindigkeit incl .oskulierenden Elementen 

C (falls IELEM mit einem Minuszeichen versehen, zusätzliches Ausstanzen der 

C Ergebnisse im Eingabeformat); Anfangszeitpunkt der Integration, für welchen 

C die eingegebenen Initialwerte oder Elemente der großen Planeten gelten; 

C Zeiteinheit in Tagen für die Eingabe der Geschwindigkeiten und 

C von M(s. dieses); Angabe ob Elemente oder rechtwinklige Initialwerte für die 

C Planeten eingegeben werden (IFELEM=1 BZW.=0), bei IFELEM<0 ein Teil von 

C Datei zu lesen, die restlichen im Format -IFELEM; 

C Angabe, ob eine Bahnverbesserung durchzuführen ist oder nur Beobachtungen 

C nachgerechnet und ggf. eine Ephemeride erstellt werden soll 

C (IBVO > BZW. = 0), im ersten Falle zugleich Anzahl, wie oft insgesamt 

C die Koeffizienten der Bedingungsgleichungen der Bahnverbesserung zu 

C berechnen sind (d.h. ab der wievielten Bahnverb, die dann berechneten 



C Werte beibehalten werden); Angabe, ob Letzteres zum momentanen Zeitpunkt 

C der Rechnung (noch) der Fall ist; evtl. Beschränkung der Anzahl an 

C durchzuführenden Bahnverbesserungen (ansonsten wird IEND=10 gesetzt); 

C Anzahl der außer der Bewegungsgrößen des Zusatzkörpers evtl. weiteren 

C zu bestimmenden Größen ( s .SUBR. ZCOEFF ) , Anzahl der über die Menge 

C der Unbekannten hinausgehenden vorhandenen Bedingungsgleichungen. 

C* NRBV,ABERR,GK 

C Anzahl, wie oft seit Start des Programmes die Bahn verbessert wurde, 

C außer: NRBV=-1, wenn keine vorläufige Bahn eingegeben wurde, sondern 

C diese erst aus vier Beobachtungen bestimmt werden muß, NRBV=101, wenn die 

C Bahnverbesserung abgeschlossen ist oder bei IBV0=0; Aberrationskonstante; 

C Gaußsche Konstante des Zentralkörpers unter (jeweiliger) Berücksichtigung 

C der Masse des betreffenden zweiten Körpers (Zeiteinheit 1 Tag). 

C* EXZ , OMEGA , ASCD , OBL , GROESE , EPOCHE , AMO , HALBA, IEXZ , IBAHN 

C ggf .einzugebende Kegelschnittelemente Exzentrizität, Argument des 

C Perihels, Länge d. auf steigenden Knotens, Bahnneigung, reduz . Helligkeit, 

C sowie wahlweise entweder eine Epoche mit der zugehörigen mittleren Anomalie 

C und großen Halbachse, oder Perihelzeit und Periheldistanz (IEXZ=0 

C bzw. 1); Angabe, was für eine Art von Bahn bei einer ersten Bahnbestimmung 

C zu bestimmen ist ( s . SUBR.BAHNO ) . 

C* IFR,NG,IFMOND,IFREL,NGR,IFM,IFREL0,IFVW,IRES 

C Angabe über die Berücksichtigung relativistischer Effekte (s. 

C SUBR.REL); Anzahl der nichtgravitativen Parameter ( S . SUBR.NGR) ; 

C Angabe, ob die Störungen des Mondes separat zu berücksichtigen sind; 

C momentane Werte für IFR, NG und IFMOND im betreffenden Programmteil; 

C Angabe über die Zahl der Körper mit relativist. Effekten; Angabe, 

C ob gerade zeitlich vor- oder rückwärts integriert wird; Angabe, ob beim 

C Zusatzkörper die Restfehler in Rektaszension mit oder ohne COS(Dekl.) 

C und ob mit oder ohne Gewichten auszudrucken sind ( s . SUBR.OUTRES ) . 

C* NG6,IF0,CEK,CXE,CXK,IFEST,NGLEI,NG6IBZ 

C Anzahl der Bestimmungsstücke der Bewegung des Zusatzkörpers (NG+6); 

C Angabe, ob Funktionen derselben bei der Bahnverbesserung festzuhalten 

C sind; Funktionalmatrix der Kegelschnittelemente nach den dann verwendeten 

C modifizierten Elementen, der rechtwinkl. Initialwerte nach den Kegel- 

C schnitt- und den modifizierten Elementen, sowie Angabe darüber, ob das 

C betreffende mod. Element (Zeile in CEK) konstant zu halten ist; 

C Determiniertheitsgrad d. Gleichungen (Anz.-Unb.); Anzahl der insgesamt 

C vorkommenden Unbekannten ohne Abzug der festzuhaltenden Bedingungen 

C* X,DX,DDX,M 

C Ort, Geschwindigkeit, Beschleunigung der Körper für einen Zeitpunkt, 

C Masse, multipliziert mit der Gravitationskonstante und dem Quadrat 

C von DGESCHW (beim Einlesen) bzw. DT (später beim Rechnen). 

C Bei der Indizierung von X,DDX und DX folgt zuerst die Nummer der 

C Koordinate (l=x, 2=y, 3=z), dann die lfnd. Nr. des Körpers. 

C Im Allgemeinen ist K die Koordinate und I der Index des Körpers. 

C* Y,DDY 

C Y enthält bezüglich des dritten Index von 1...LI die Koordinaten des 

C Körpers für LI Zeiten der Integrationsrichtung entgegenlaufend. 

C Bei dem Index LI+1 ist die Differenz der beiden letzten Koordinaten 

C (LI-1 und LI) enthalten. In DDY sind die rückschreitenden Differenzen 

C der Beschleunigungen (bezogen auf den Ll-ten Ort) enthalten, begonnen 

C mit der Beschleunigung selbst (mit Index 1). Die beiden ersten 

C Indizes geben wie bei X etc. Koordinate und Körper an. 

C Bei der Bahnverbesserung des Zusatzkörpers werden die mind. 18 Differ- 

C entialquotienten der momentanen Koordinaten nach den Initialwerten 

C wie sechs Körper mit je drei Koordinaten mitintegriert. 

C* YANF 

C Matrix Y für TZ als mittlere Zeit (J=6). 

C* NP1,IBAND,NP,ANFP,DTP,NRECP,BD8,NREC1,NREC2,NREC,IUNIT,IDIR 

C Index des ersten zu integrierenden Körpers (falls nicht 2, von 2 

C bis NP1 von Band o. Datei lesen); IBAND=1 falls Datei für Planeten 

C erzeugen; NP Anzahl der Planeten auf Datei; ANFP,DTP Anfang und 

C Schrittweite derselben; NRECP Anzahl an Zeilen bei der Datei; 

C BD8 derzeit eingel. Teil (von NREC1+1 bis NREC2 ) ; NREC mom. aktuelle Zeile; 

C IUNIT Ein-/Ausgabekanal d. Planetendatei, IDIR=0/1 bei seq. /dir .File 



C* MERR0,MERR,IFKOKO,STA,STA0 

C Angabe ob zu einer ggf. Ephemeride nach Bahnverbesserung Fehler- 

C abschätzung erfolgen soll (MERR=0 bzw. 1 o.2, im letzten Fall zusätzlich 

C Eingabe weiterer Normalgleichungen über Kanal 14 und nur 

C eine Bahnverbesserung); Angabe ob Korrelationsmatrix auszudrucken ist; 

C STA/STAO in /BAHN mittl. Fehler einer gesamten Beobachtung 

C vom Gewicht p=l aus den letzten Residuais, in /K2 dagegen einer 

C Bedingungsgleichung aus letzter Auflösung der Normalgleichungen 

C* IH,IHEQ,TIH,TIH1,TIH2 

C IH>0 falls für ein Sondenprojekt genaue Positionswerte ausgedruckt werden 

C sollen. Bei MERR0>0 wird dazu eine Fehlerrechnung durchgeführt, 

C IH=l/2 falls dabei der tatsächliche mittlere Fehler nach der aktuellen 

C Rechnung oder STA0=1" (langfristige Prognose) angenommen werden soll; 

C Vorbeiflugzeit; Zeitraum der genauen Ephemeridenrechnung 

C 

C* Primäre Parameter: 

C LI=11 Grad der Integrations- und Interpolationspolynome 

C (LI muß ungerade sein) 

C Achtung ! SUBR.IK funktioniert bisher nur für LI=11 ! 

C LI2=4 dgl . f .d.Prediktor der Geschwindigkeit, falls diese in 

C der Bewegungsgleichung auftritt (LI2=4 stets ausreichend) 

C LN=27 max. Anzahl der insgesamt zu integrierenden Objekte 

C (große Planeten + 1 + NG6 ) 

C LU=16 max. Gesamtzahl NG6IBZ der bei TZ.NE..0D0 ggf. zu bestimmenden 

C Unbekannten 

C LBE=500 max. Anzahl der dazu verwendeten Beobachtungen 

C LST=200 max. Anzahl der zugehörigen Sternwarten 

C Ablauf des Programmes 

C Im Hauptprogramm werden zunächst die Hauptsteuergrößen eingelesen. 

C In SUBR.ANZ erfolgt die Berechnung der jeweils aktuellen Werte der 

C Steuergrößen wie N,NF, IFREL,NGF, IFBVO usw. je nach Stand der Rechnung. 

C In SUBR.INPUT1 erfolgt die Eingabe der Initialwerte der großen Planeten. 

C In SUBR. ANFANG werden diese in Randwerte als Ausgang der späteren 

C Integration umgewandelt, in SUBR.DIFF wird dazu das Differenzenschema 

C der dazugehörigen Beschleunigungen gebildet. Beim Aufruf von 

C SUBR.INPUT2 sollen die Initialdaten eines evtl. hinzukommenden, zu 

C berechnenden Körpers eingelesen werden. Ist hier nur eine Leerkarte, 

C d.h. TZ=0, so kommt kein solcher Körper hinzu, sondern es sollen 

C lediglich die zuvor eingelesenen Planeten integriert werden. 

C Ansonsten ist TZ die Oskulationsepoche, und die Anfangswerte für den 

C Körper werden eingelesen. Ist hierbei für seine Elemente nichts 

C eingegeben, muß eine erste Bahn erst aus vier Beobachtungen bestimmt 

C werden (NRBV=-1).- Falls kein Körper hinzukommt, erfolgt beim Aufruf 

C von SUBR.NBODY noch die gewünschte Integration der großen Planeten 

C und das Programm ist beendet. Ansonsten werden in SUBR.INOBS eventuelle 

C Beobachtungen des Zusatzkörpers eingelesen. Soll die Bahn nicht verbes- 

C sert, sondern nur eine Ephemeride oder/und oskulierende Elemente berech- 

C net werden (IBV0=0), brauchen keine Beobachtungen eingegeben zu werden, 

C es sei denn, daß keine vorläufige Bahn eingegeben wurde und diese 

C erst aus 4 Beobachtungen bestimmt werden müßte. Anschließend werden 

C in SUBR.NBODY die großen Planeten zur Oskulationsepoche TZ integriert, 

C und ggf. in SUBR.YANF2 zeitlich umgekehrt , falls die Oskulationsepoche 

C zeitlich hinter der Epoche der Planeten liegt. Jetzt beginnt die 

C Prozedur der Bahnverbesserung (bzw. Berechnung der Ephemeride), 

C wobei immer zuerst zeitlich vorwärts, dann rückwärts integriert wird. 

C Bei jeder Bahnverbesserung wird der nun folgende Bereich des 

C Hauptprogrammes durchlaufen. Die Koeffizienten der Bedingungs- 

C gleichungen müssen als 6+NGR weitere Körper mitintegriert werden. 

C Ihre 'Initialwerte' werden nachfolgend in SUBR.ELEM bzw. SUBR.INDIFF 

C eingegeben.- Nach der letzten Bahnverbesserung werden 

C in SUBR.MFl(und MF2 ) die mittleren Fehler der Endresultate 

C berechnet und zusammen mit diesen in SUBROUTINE ELEM ausgedruckt. 

C Von den jeweils bei der letzten Bahnverbesserung (bzw. zu Beginn aus 



C SUBR.INPUT) erhaltenen Initialwerten des Körpers werden in SUBR. 

C ANFANG und SUBR.DIFF die Randwerte und die Differenzen der Beschleu- 

C nigungen berechnet, falls erforderlich, in SUBR. CXKO außerdem die Funktio- 

C nalmatritzen CXE und CXK. In SUBR.YANF1 werden die zur Oskulationsepoche 

C gehörenden Planetenkoordinaten (und die des Zusatzkörpers) gespeichert, 

C um bei jeder Bahnverb, wieder von ihnen auszugehen. Zur Nachrechnung 

C der Beobachtungen erfolgt beim ersten Aufruf von SUBR. NBODY zuerst die 

C Vorwärtsintegration. In SUBR. YANF2 werden die bei YANF1 gespeicherten 

C Werte wieder aufgerufen und in SUBR. NBODY wird nun rückwärts integriert. 

C Nur falls keine Bahnverbesserung mehr durchzuführen ist (NRBV=101), wird 

C eine ggf. gewünschte Ephemeride (bzw. oskulierende Elemente) ausgedruckt. 

C Wenn keine Beobachtungen eingegeben waren ( IOBS=0 und NRBV=101), ist nun 

C die gewünschte Ephemeride berechnet und das Programm ist fertig. 

C Falls keine vorläufige Bahn eingegeben wurde, wird diese jetzt in 

C SUBR.BAHNO berechnet, und es wurden bisher nur die Planeten zwecks Erhalt 

C der hierzu nötigen Erdkoordinaten integriert. Ansonsten werden 

C in SUBR.OUTRES die gerade berechneten Restfehler ausgedruckt und wird in 

C SUBR.BV die Bahnverb, durchgeführt. Hat sich der mittlere Fehler 

C der Beobachtungen seit der letzten Bahnverbesserung um weniger als 

C 1/10000 geändert, ist der nächste Durchgang der letzte und dient 

C nur noch dem Ausdruck der Elemente und der Berechnung der entgültigen 

C Restfehler. In SUBR.YANF2 schließlich werden die Planetenkoordinaten 

C wieder durch die vorher abgespeicherten Werte ersetzt, sodaß zusammen 

C mit den neuen Initialwerten des Zusatzkörpers die selbe Situation 

C wie am Anfang besteht und die nächste Bahnverb, erfolgen kann.- 

C Handelt es sich z.Bsp. um einen Mond eines Planeten (NZENTZ>1), so sind 

C bei Ein- und Ausgabe die Elemente, sowie bei Ephemeridenrechnung die 

C Position auf den Planeten bezogen, die Rechnung selbst wird aber wie 

C bei allen anderen Körpern relativ zum ersten Körper (Sonne) durchgeführt. 

C Datenkarten 

C* 1) N,NANZ,DT,ID,IELEM,ANF,DGESCH,IFR,IFREL0,IFMOND,IEND,IBZ,IFELEM,MERR,IBA 

C* (FORMAT 1, Hauptprogramm). Falls IELEM<0, Integrationsergebnisse 

C* auch auf Kanal 9 im Eingabeformat ausgeben; falls IFELEM<0 einige oder 

C* alle Planeten von Datei lesen; IBAND>1 diese erzeugen (Kanal 8). 

C* 2) X,Y,Z UND M(s.o.) sowie Name des Planeten , auf zweite Karte DX,DY,DZ 

C* in Einheiten von DGESCH, also für jeden Planeten hintereinander 

C* zwei Karten. Als erster Körper ist derjenige einzugeben, der 

C* den Ursprung bildet, falls ein Zusatzkörper hinzukommt, als vierte 

C* stets (!) die Erde.- Wahlweise stattdessen oskulierende Elemente und 

C* rezipr. Masse zum jeweiligen Zentralkörper (NZENTZ), für den ersten 

C* Körper nur eine Karte mit M, bezogen auf DT=1 Tag (Gaußsche 

C* Konstante). Vgl. FORMAT 1 in SUBR.ININV bzw FORMAT 46 in SUBR.ININVO. 

C* Falls Planeten von Datei zu lesen, zuvor bzw. stattdessen eine Karte 

C* mit Datei-Nr. und Anzahl der einzul .Planeten ( s . FORMAT 1 in SUBR.BD8A) 

C* 3a) wahlweise: ' K ' , ISTIL, ISTILO ,L0 falls nötig (NGR>0), 'F' bzw. 'N' 

C* falls bei 4) Eingabe der Elemente bzw. nichtgrav. Parameter per 

C* NAMELIST, etc , je auf eine Karte. 

C* Siehe SUBR.NGF,NGF1 , FORMAT 7 in SUBR.INPUT2 

C* 3b) TZ,IBVO,IEPHE,IUT,NGR,IRES,IFRECT,TANFG,TENDE, max . 4 nichtgr . Parameter 

C* Eine Karte, FORMAT 2 von SUBROUTINE INPUT2 . Falls keine Ephemeride 

C* erwünscht ist, IEPHE=0 oder TANFOTENDE setzen. 

C* 3c) ggf. weitere Parameter nichtgrav. oder sonstiger Kräfte (falls NGR>4 ) 

C* (FORMAT 3 SUBR.INPUT2) 

C* Falls kein Zusatzkörper hinzukommt (Integration und Ausdrucken 

C* nur der Planeten), anstattdessen Leerkarte und danach nichts mehr. 

C* 4) Falls IFRECT=0: Oskulierende Bahnelemente für Epoche=TZ , 

C* FORMAT 45 von SUBROUTINE ININVO (Masse bei kl .Planeten=0 ) ; 

C* falls keine vorläufige Bahn bekannt ist und diese erst berechnet 

C* werden muß, entweder eine Leerkarte (allgemeine Bahnbestimmung), 

C* oder ein anzunehmender Wert für a, im Falle einer Parabelbahnbestim- 

C* mung e=l., ablochen. Angabe ob die Eingabe auf FK4- oder FK5 bezogen. 

C* Wenn unter 3a) angegeben, Eingabe der Elemente als NAMELIST ' ELDBL ' 

C* (s. SUBR.ININVO) bzw der nichtgrav. Parameter als ■ PARAM ' (s.SUBR. 



C* INNGF) wobei ggf. Eingabe unter 3b) überschrieben wird 

C* Falls IFRECT=1: Rechtwinklige Initialwerte wie bei 2) für 

C* die Planeten (2 Karten), falls vorl. Initialwerte unbekannt, 

C* IFRECT=0 verwenden. FORMAT 45 in SUBR.ININVO bzw. FMT.l i. SUBR.ININV 

C* Falls nur eine Ephemeride des Zusatzkörpers gerechnet werden soll 

C* (weder Nachrechnen von Beobachtungen noch Bahnverbesserung), 

C* anschließend Leerkarte und dann nichts mehr. 

C* 5) Alle bei den Beobachtungen vorkommende Sternwarten, für jede 

C* eine Karte: Form der eingeg. Länge, lfnd.Nr., geogr. Länge und 

C* Breite, Höhe, Name, FORMAT 1 in SUBROUTINE INSTW. Wahlweise auch 

C* stattdessen Länge, dxy,dz (FORMAT 9 und 6 in SUBR. INSTW) 

C* 6) Leerkarte nach letzter Sternwarte 

C* 7) Beobachtungen, für jede eine Karte: Zeit(UT), RA,Dekl, IFK5 , Gewichte 

C* nebst Bezugssystem und Nr. der Sternwarte (FORMAT 2 in SUBR. INOBS ) 

C* 8) Anschließend eine Leerkarte, falls bei der Bahnverbesserung alle 

C* Elemente zu verbessern sind, anschließend keine weiteren Daten mehr. 

C* 9) Eine Datenkarte mit IFEST (FORMAT 1 in SUBR. INFEST) 

C* 10) Die Koeffizienten der durch INFEST als ungleich angegebenen Elemente 

C* von CEK (FORMAT 12, SUBR. INFEST) 

C* Fehler, nach denen man lange sucht 

C* 

C* *Völlig falsche vorl .Elemente für Kometen ausgedruckt: 

C* Überprüfen ob bei der Eingabe Wert für T zu lang (in Bereich 

C* für AMO fortgesetzt) 

C* *Fehlerabbruch bei Ausgabe von Residuais, sonstige unerklärliche 

C* Abbruche: LBE ungerade, ungünstige Größe der virtuellen Seiten 

C* * Auf tauchen völlig falscher Werte (für Residuais, für vorl. 

C* Elemente [meist 0] &c): irgendwo wurden Zeichen wie :,* usw. 

C* im Format AI auf INTEGER-Variablen eingelesen (z. Bsp. für IFK5), 

C* dadurch geraten sämtliche ( ! ) anderen Variablen durcheinander 

C* (Compiler-Fehler d.UNIVACHOO unabh.von Option b. Aufruf usw) 

C* *Kompatiblität auf andere Rechenanlagen 

C* 

C* Nötige Änderungen kommentiert ( Spalte 1-4 , 72-80 ) 

C* CUNI=UnivacllOO, CVAX=Vaxll/780 , CATA=Atari52 0ST+, CHON=Honeyw.B. 660 

C* Mit $ in Spalte 72-80 absolut nötige Änderungen/Anweisungen, 

C* alle anderen kann man so lassen da i.Allg. nur auf die günstigste 

C* Peripherie ( Terminal, Batchbetrieb) bezogen. Daher: zum Implementi- 

C* ren alle $ in Sp. 72-80 suchen und Umgebung sinngemäß ändern, 

C* andere mit C versehenen Änderungen später ggf. auch. Bei Atari: 

C* Pro-Fortran 77 / AC-Fortran - Compiler mit CATA,$ATA und */# gekennz. 

C* Wechsel große Anlage/Atari: PARAM. LBE,LREC sowie MXREC abändern. 

C* Alle EXTERNAL in INTRINSIC oder Kommentare umwandeln! $UNI$VAX 

C* Bei Übertragen m. KERMIT Umlaute u. Sequenzen , ■ <ESC ! x> ' weg! $UNI$VAX 

C* Beides auch bei Atari mit AC-Fortran. Dabei werden außerdem $ATA# 

C* die ERR= -Klauseln bei inkompatiblen Daten ignoriert, sodaß die $ATA# 

C* Daten genau zu überprüfen sind; vor dem <EOF> kein <CR><LF>! $ATA# 

C* Wegen der dynamischen Speicherplatzverwaltung von AC-Fortran $ATA# 

C* muß damit das Programm in einem Stück übersetzt werden. $ATA# 

C* *Generell : möglichst mit FORTRAN77-Compiler übersetzen, 

C* alle Variablen mit vorbesetzen, alle CHAR-Deklarationen können 

C* weggelassen werden (FTN5), bei weitgehend virtueller Speicherungs- 

C* weise alle COMMON-Blöcke so ändern daß die 4-Byte-Größen 

C* erst nach den 8-Byte-Größen kommen (werden sonst ggf .halbiert ) 

C* Empfehlenswert im Normalgebrauch die gr. Planeten von einer Datei 

C* zu lesen (nur bei sehr ausgedehnten Integrationen mitintegr.), 

C* welches am Anfang zu erzeugen ist ( s . SUBR.BD80f f . ) . Wenn möglich 

C* (große Anlage oder VIRTUAL) sollte bei Gebrauch die ganze Datei 

C* eingelesen werden (dann nur einmal anfangs nötig), dazu MXREC=LREC 

C* und IDIR=0 (sequentiell) wählen. Bei kleineren Anlagen in Blöcken 

C* zu LREC Zeilen (bei jeder Bahnverb. erneut ) einlesen, IDIR=1 (dir.). 

C* Erzeugen d. Planetendatei: Planeten integrieren und IBAND=1 eingeben. 

C* 



c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 

q* * * * 



* Kanal 5 
6 
7 



Eingabedatei 

Ausgabedatei 

Konsole, Tätigkeitsprotokoll (ggf. auf temp. Datei umleiten) 

Konsole, ansonsten nicht sinnvoll, ggf. herausnehmen/ersetzen 

Planetenkoordinaten für jeden Schritt auf Datei 

Ausgabe Initialwerte/Elemente im Eingabeformat zur Weiterverw. 

ggf. zusätzl. Normalgleichungen f .d. Zusatzkörper 



*Dauer (sek.) pro Integrationsschritt bei Rechenanlage/Übersetzeroption: 



#Integr.v.9 Planeten(mit rel. 

Ef f. u.Mond) , Erst .V.Datei 8 
#Ephemeride alle 5 Schritte, 

9 Planeten v. Datei lesen 
#Objekt u. 15 Unbekannte, 

9 Planeten V.Datei lesen 
#Objekt ohne Unbekannte, 

9 Planeten V.Datei lesen 
#Eingabe einer Beobachtung 
#Nachrechnen einer Beob. 
#Anf angsiteration 9 Planeten 
#Anf angsiteration 1 Objekt 
♦Schreiben d.Plan.koord. (Dat . 8 ) 

auf RAM(Atari)/Platte(Univac) 

auf Festpl. (Atari) 

auf Diskette (Atari) 



UnivacllOO VAX780/VMS Atari520ST+/TOS 
FTN,OFW VAST,OZ FOR/D FOR *F77/IN #F77/CNU 

ohne: mit Koproz. 
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0.016 
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l.f 



1.5:0.50 



2.5 



1.2 



42 

18 
40 



0.004 



176 

46 



0.012 
0.029 
0.11 



******************************************************************** 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 

SAVE 

PARAMETER (LN=27 ,LI=1 1 , LI 1=LI+1 , LI2=4 ) 

PARAMETER (LBE=500 , LBE2=LBE*2 , LST=200 ,LU=16 ,LU1=LU+1 ) 

PARAMETER ( LU2=LU* 2 , LU3=LU-3 , Ll=LU-6 , LS=3 , LELIM=5 , LLIM=LS- 1 ) $ATA# 

PARAMETER (LG=28 ,LREC=180 ) 

CHARACTER*1 IDISK $ATA# 

CHARACTER*4 ISTRIN 

CHARACTER*12 IZEIT CATA 

DOUBLE PRECISION M 

COMMON/BD800/BD8(LG,LREC) 

COMMON/BD8 000/NRECl,NREC2,NREC,NREC00 

COMMON/BAND1/NP1 , IBAND,NP0 , XM( 3 ) 

COMMON/BAND/NP,ANFP,DTP,NRECP,IUNIT,IDIR 

COMMON/GEWI/P ( 2 , LBE ) 

COMMON/BEOB/TOBS(LBE) , RA (LBE) ,DEKL(LBE) ,DW(LBE) , DY ( LBE ) ,DZ (LBE) , 
. NTOBS ( LBE ) , IART ( LBE ) 

COMMON/STERNW/RHO(LST) ,THE(LST) ,PHI(LST) ,NSTWT(LST) 

COMMON/EQUIN/EQ, IRES, IUT, IEXZ 

COMMON/ZUSK/TZ,IEPHE,IOBS,IANFG,IENDE, IBV0 ,NGR, GR, IFREL, IFREL0 , IFR 
. ,NG 

COMMON/MASSE/M(LN) ,NZENTZ,GK 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) , DX ( 3 , LN ) 

COMMON /ANZAHL/N , NF , DGESCH , DT , IFBV0 , NB1 , NB2 , NB6 , IFM , IFMOND 

COMMON/POLYNO/F(LI) ,G(LI1) ,ABERR,H(LI2 ) 

COMMON /MATRIX/ Y( 3, LN, LH) , DDY ( 3 , LN , LH ) 

COMMON/BEl/ISTRIN(LBE,3) 

COMMON/BE2 /RES ( 2 ,LBE ) 

COMMON /ANFG/YANF ( 3 , LN , LI 1 ) 

COMMON/BAHN/E ( LU ) , NRBV, STA0 , IBAHN 

COMMON/KOEFF/C(LUl,LBE2) 

COMMON/RELl/DXR(3,LN) , IFVW, IT, CL, ANF 

COMMON/NV/IF0,NG6, IFEST(LUl) ,CEK(LU,LU) ,CXK(LU,LU) ,CEX(LU,LU) 

COMMON/UNB/M0,IBZ,NG6IBZ,B(2,LU) , B0 ( 2 ,L1 ) , U (LI ) 



COMMON/ 10 /GD(LU) , IFMT, IEPC 
COMMON/ERR/MERR,MERR0,IFKOKO 
COMMON/ ZIEL/IH,IHEQ,TIH,TIH1,TIH2 
Nachfolgende COMMON-Bl. hier nur bei automat . Speicherplatzverw. nötig 

C0MM0N/ERRAN/MERRAN,ZEIT1,DXDU(LU,3) * $ATA# 

COMMON/STIL/ISTIL,ISTILO,LO(L1) $ATA# 

COMMON/POLYN1/EO(LI,LI) $ATA# 

COMMON/NG/G0(3,LU3) , DGO ( 3 , 3 ) $ATA# 

C0MM0N/NG1/APAR(3,LS) ,BPAR(3,LS) , IPAR ( 3 , LS , 2 ) , I RT VM , I S , $ATA# 

FRTV(3,LS) ,DFRTV(3,LS) ,BP(3,LS) ,DBP(3,LS) $ATA# 

COMMON/METRIK/BETA, GAMMA $ATA# 

COMMON/EPH0/DEDAE(2,2) , XO, YO, ZO , RAO, DEO, DISTO $ATA# 

COMMON/EPH1/ZEIT,TE,TO,OXO(LI) ,OY0(LI) ,OZ0(LI) $ATA# 

COMMON/ELIM/NELIM, JELIM(LELIM) , DRELIM(LELIM) , DDELIM( LELIM) $ATA# 

COMMON/K2/COO(LU1,LU1) , STA $ATA# 

COMMON/EL/GEL(LU) ,GFEL(LU) $ATA# 

C0MM0N/S0LUT/VERB(LU2) $ATA# 

COMMON/LS1/LS0 $ATA# 

COMMON/XYZ/IXYZ $ATA# 

COMMON/DISK/IDISK $ATA# 

C0MM0N/DISK1/MXREC $ATA# 

COMMON/LIM/NLIM,RLIM(LLIM) , El , E2 , E3 ,R1 ,R11 , CR( 3 ) ,ALPHA(3) $ATA# 

DIMENSION UNW(3) ,UNW0(3) 
DATA NGLEI,I1,STA1 /0,1,.0D0/ 
CALL START 
READ ( 5 , 1 ) NF , NANZ , DT , ID , IELEM , ANF , DGESCH , 

IFR, IFRELO , IFMOND, IEND , IBZ , IFELEM,MERRO , IBAND , IH 

1 FORMAT ( 12, 16, D14. 8, 13, 14, 2D1 0.3, 3 II, 612) 
IF (IELEM. LT. 0) CALL FILE(9) 

Vorsichtshalber nicht mehr als zehn Bahnverbesserungen: 
IF ( IEND . EQ . ) IEND= 1 1 
IEND=IEND-1 

ABERR=4 9 9.004 7 8367 9D0/8 64 0.D0/DT 
CL=1.D0/ABERR**2 
IF(DT.LT. .0D0)IFVW=-1 

CALL INPUT1 (ANF, NF, DT, DGESCH, 1-IFELEM) 
CALL INPUT2 (ANF, NF+1, DT, DGESCH, NG) 
IF (IBAND. NE. 0) CALL BD8A(NF , ANF , NANZ , DT*IFVW) 
IF ( IBVO . NE . .AND . MERRO . NE . ) IFKOKO=l 
IF ( IENDE . LE . IANFG . OR . IBVO . EQ . ) MERR0=0 
IF(IFR.GE. 1)CALL OUTP ( IFR, IFRELO ) 
IF ( IEPC. EQ.l) CALL FILE(9) 
IF ( TZ . NE . . 0D0 ) GOT09 
D08I=NP1,NF 

8 CALL ELEM(I,ANF,DT*IFVW,5-5*IELEM/IABS(IELEM) ) 

9 CALL ANZ ( 1 ) 

IF ( TZ . EQ . . 0D0 ) G0T02 

NG6=NG+6 

NG6IBZ=NG6+IBZ 

WRITE( 7 ,*)'*', IZEIT( ), ' Beginn Eingabe Beobachtungen' 

CALL INOBS ( IOBS , TZ , DT , IRW, NRBV , IBVO , NGLEI , IEND ) 

WRITE(7,*) ' * ' , IZEIT(O) , ' Ende Eingabe Beobachtungen' 

NANZ=NINT ( DABS ( TZ -ANF ) /DT ) 

2 CONTINUE 
CALL IK 

IF(TZ.NE. .0D0.AND.NPl.GT.NF)GOTO13 
IF(TZ.NE. .0D0) 
.WRITE( 7 ,*)'*', IZEIT( ), ' Beginn Planeten bis Epoche integrieren' 
CALL ANFANG (NP1, NF, 0,IFREL, IFRELO) 
IF(NANZ.NE.0.OR.TZ .EQ. . 0D0 ) CALL 

NBODY ( NANZ , ANF , DT*IFVW, IFVW* 1,0,0,0,0,ID, IELEM, , IFREL , IFRELO ) 
IF(TZ.EQ. .0D0)CALL STOP 

WRITE( 7 ,*)'*', IZEIT( ), ' Ende Planeten bis Epoche integrieren' 
IF( TZ. LT. ANF (CALL YANF2 ( 2 , NGR, IFREL , IFRELO , IFVW) 
13 IF(NRBV.EQ.-l)GOT06 



CALL ANZ ( 2 ) 

IF(NZENTZ.NE. 1)CALL DYANFZ ( 1 ,NZENTZ , TZ , DT, UNW, UNWO ) 
7 CONTINUE 
C Jetzt befindet man sich bei der Oskulationsepoche des zu ber. Körpers und 
C d. Prozedur der Berechn.v. Residuais u. neuen Elementen kann erneut beginnen. 

WRITE( 7 ,*)'*', IZEIT( ), ' Beginn Rechnung mit neuen Elementen' 

WRITE(6, 15) ' * ' ,IZEIT(0) 

IF(IBVO.NE.O.AND.NRBV.GE. 101) CALL MF1(0,TZ) 

CALL ELEM(NF,TZ,DT, 1) 

IF (IFBVO. NE. 0. AND.NRBV.LT. 101) CALL CXKO 

CALL ANFANG ( NF , N , NGR , IFREL , IFRELO ) 
6 CALL YANF1 

CALL NBODY(NTOBS(MAX0(IOBS, 1) ) *I1 , TZ , DT, IRW+1 , IOBS , 
. IANFG , IENDE*I 1 , IEPHE , ID , IELEM, NGR , IFREL , IFRELO ) 

IF ( NRBV . EQ . 1 1 . AND . MERRO . NE . ) CALL ANZ ( 3 ) 

CALL YANF2 ( 1 , NGR, IFREL, IFRELO , IFVW ) 

CALL NBODY(-NTOBS( 1) , TZ , -DT, IRW*I1 , 1 , -IENDE , -IANFG, IEPHE , 
. ID, IELEM, NGR, IFREL, IFRELO ) 

IF(IH.NE.O .AND. NRBV. GE. 10 1 .AND .MERRO .NE . ) CALL ERAN 

IF ( IOBS . NE . .AND . NRBV . NE . - 1 ) CALL OUTRES ( IOBS , NGLEI , STAO , NRBV, IBVO ) 

IF ( NRBV . NE . 1 1 . AND . IBVO . NE . . AND . IOBS . NE . ) GOTO 1 4 

WRITE(6, 15 ) ' * ' ,IZEIT(0) 
15 FORMAT( /,A1,A12) 

WRITE(7,*) ' * ' , IZEIT(O) 

CALL STOP 
14 IF(NRBV.NE.-l)GOT03 

WRITE( 7 ,*)'*', IZEIT( ), ' Beginn erste Bahnbestimmung ' 

CALL BAHN0(NF+l,IOBS,IEND) 

WRITE(7,*) ' * ' ,IZEIT(0) , ' Ende erste Bahnbestimmung ' 

GOT04 

3 CONTINUE 

WRITE( 7 ,*)'*', IZEIT( ), ' Beginn Bahnverbesserung ' 
CALL BV(NF, NGR, IOBS, NGLEI) 

WRITE(7,*) ' * ' ,IZEIT(0) , ' Ende Bahnverbesserung ' 
IF( (DABS(STA1/STA0-1.D0) .LT. l.D-4 .AND.NRBV.LT. 100) .OR. 
. NRBV . EQ . IEND ) NRBV= 10 
NRBV=NRBV+1 
STA1=STA0 

IF ( NRBV. EQ. IBVO. OR. NRBV. EQ. 101) CALL ANZ ( 1) 
IF ( NRBV . EQ . 1 1 . AND . MERRO . NE . ) CALL ANZ ( 3 ) 

4 CALL YANF2 (0, NGR, IFREL, IFRELO, IFVW) 
GOT07 

END 

BLOCK DATA BDMAIN 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER (LN=27 ,LU=16 ) 

COMMON/EQUIN/EQ,IRES,IUT,IEXZ/BAHN/E(LU) , NRBV, STAO 

COMMON/RELl/DXR(3,LN) , IFVW/ERR/MERR, MERRO , IFKOKO 

DATA IFKOKO, NRBV, IFVW, IEXZ,EQ, STAO /0 , , 1 , , 1950 . 0D0 , 1 . D-10/ 

END 

SUBROUTINE ANZ ( I ) 
C Berechnet zur Ersparnis von Rechenzeit bei der Integration oft gebr. Größen 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER ( LN=27 ,LU=16 ) 

COMMON/BAHN/E(LU) , NRBV/REL1 /DXR( 3 , LN) , IFVW, IT, CL, ANF 

COMMON/ERR/MERR, MERRO 

COMMON/ ZUSK/TZ, IEPHE, IOBS, IANFG, IENDE, IBVO , NGR, GR, IFREL, IFRELO , IFR 
. ,NG 

COMMON/ANZAHL/N , NF , DGESCH , DT , IFBVO , NB1 , NB2 , NB6 , IFM , IFMOND 

COMMON/BAND1/NP1 
C Falls nur vom Zusatzkörper (nicht auch v. d. Planeten, IFRELO .NE . 2 ) relativis- 
C tische oder nichtgrav.Ef f ekte zu berücks.,bei d. ersten Integration nur der 
C Planeten v. ANF nach TZ ( I .EQ. 1 . AND.NRBV.NE . . AND.TZ .NE . . 0D0 ) IFREL=0 setzen 



NB1 = 

NB2 = 

NB6 = 

IFBVO=0 

IFREL=IFR 

MERR=0 

IF(TZ.EQ. .ODO.AND.IFMOND.EQ. 1 ) IFMOND=0 

IF ( IFMOND . EQ . 1 ) IFM=NF 

IF ( IFMOND . EQ . 2 ) IFM=2 

NGR=NG 

IF(I.EQ. LAND. TZ .NE. . 0D0 . AND . IFMOND .NE . 2 . AND .NRBV. EQ . )IFM=0 

IF(I.EQ. LAND. TZ .NE. . 0D0 . AND . IFRELO .NE . 2 . AND .NRBV. EQ. ) IFREL=0 

IF(I.EQ. LAND. TZ .NE. . 0D0 .AND .NRBV. EQ . )NGR=0 

IF ( IFRELO . NE . 2 ) IFREL0=NF 

IF( IFRELO. EQ. 2 )IFREL0=NP1 
C Bei IFREL0=2 von allen Körpern, sonst nur vom Zusatzkörper relativist .Effekte 

N=NF 

IF(I.NE. 1)ANF=TZ 

IF ( I . EQ . 1 . OR . NRBV . EQ . - 1 ) RETURN 

IF(I.NE.3)NF=NF+1 

N=NF 

IF ( IFMOND . EQ . 1 ) IFM=NF 

IF ( IFRELO . NE . 2 ) IFREL0=NF 

IF ( IBVO . EQ . ) RETURN 

IF ( I . EQ . 3 ) MERR=MERRO 

N=NF+6+NGR 

IFBV0=1 

NB1=NF-1 

NB2=NF+1 

NB6=NF+6 

RETURN 

END 

SUBROUTINE YANF1 
CUNI VIRTUAL /ANFG/ 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 
C Abspeichern der Koordinaten aller Körper um die Oskulationsepoche des 
C Zusatzkörpers, um bei den Bahnverbesserungen von dort aus neu zu starten. 

SAVE 

PARAMETER ( LN=27 ,LI=1 1 , LI 1=LI+1 ) 

COMMON/ANFG/YANF ( 3 , LN , LI 1 ) 

COMMON /MATRIX/ Y( 3, LN, LH) 

COMMON/ANZAHL/N/BAND1/NP1 

D01I=NP1,N 

D01K=1,3 

D01J=1,LI1 

YANF (K,I,J)=Y(K,I,J) 
1 CONTINUE 

RETURN 

END 

SUBROUTINE YANF2 (L,NGR, IFREL , IFRELO , IFVW) 
CUNI VIRTUAL /ANFG/ 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 
C Setzt die aktualen Koordinaten für alle Körper wieder gleich denen 
C um die Oskulationsepoche des Zusatzkörpers (siehe SUBROUTINE YANF1), 
C um mit der Integration dort erneut zu beginnen. 
C L=0,l,2 wenn keine Zeitumk. , Zeitumk. , oder Zeitumk.nur der aktualen Koord. 

SAVE 

PARAMETER ( LN=27 ,LI=1 1 , LI 1=LI+1 ) 

COMMON/ANFG/YANF ( 3 ,LN, LI 1 ) 

COMMON /MATRIX/ Y( 3, LN, LH) 

COMMON /ANZAHL/NN,NF/BAND1/NP1 

COMMON /MAS SE/AMO(LN),NZENTZ 

IFVW=-IFVW 

IF(L.EQ.0)N=NF-1 

IF(L.NE.O)N=NN 



IF(L.EQ.2)GOT02 

D01I=NP1,N 

D01K=1,3 

D01J=1,LI1 

Y ( K , I , J ) =YANF ( K , I , J ) 

1 CONTINUE 

2 CONTINUE 
AM=AM0 ( NF ) 
IF(L.EQ.0)AM0(NF)=.0D0 

CALL UMKEHR ( L , NP1 , N , NGR, IFREL , IFRELO ) 

IF ( L . EQ . ) AMO ( NF ) =AM 

CALL DIFF(NP1,N,L) 

RETURN 

END 

SUBROUTINE DYANFZ (L,NZENTZ , T , DT , XO , DXO ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Setzt zur Ableitung der Elemente von Monden (NZENTZ .NE . 1 ) zur Epoche T 
C die Geschwindigkeit ihres Planeten in DX(K, NZENTZ) ein 

C L=l/-1: Berechnen und zu den Initialgeschwindigkeiten addieren/subtrahieren 
C L=0 : nur rückholen auf DX. Bei L=-l werden die X,DX nicht verändert. 
C TE=LM bei TZ, sonst TE=0 . 

SAVE 

PARAMETER (LN=2 7 ,LI=1 1 , LI 1=LI+1 , LM=LI/2 ) 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) , DX ( 3 , LN ) 

COMMON/MATRIX/ Y( 3, LN, LH) /ANZAHL/N, NF 

COMMON/RELl/D0 0X(3,LN) , IFVW, IN, CL, ANF/ZUSK/TZ 

DIMENSION YANF(3) , DYANF ( 3 ) ,X0(3) ,DX0(3) 

IF(L.EQ.0)GOTO2 
C Folgenden Weg d. Berechnung d.Geschw. irgendwann mal durch e.a. ersetzen 

TE=.0D0 

IF ( DABS ( T-TZ ) . LT . 1 . D-5 ) TE=LM* 1 . DO 

CALL PLANET ( NZ ENTZ , T , TE , DT , , YANF ) 

CALL PLANET) NZENTZ, T,TE, DT, 1, DYANF) 

D03K=1,3 

DYANF ( K ) =DYANF ( K ) * DT 

XO ( K ) =X ( K , NF ) +YANF ( K ) *L 

3 DXO(K)=DX(K,NF)+DYANF(K)*L 
IF(L.EQ.-l)GOT05 
D06K=1,3 
X(K,NF)=X0(K) 
DX(K,NF)=DX0(K) 

6 CONTINUE 
5 CONTINUE 

RETURN 
2 CONTINUE 

D04K=1,3 

X(K, NZENTZ )=YANF(K) 

4 DX(K, NZENTZ )=DYANF(K) 
RETURN 

END 

SUBROUTINE NBODY ( NANZ , ANF , DT , NOBSE , NOBSF , IANFG , IENDE , IEPHE , 
. ID, IELEM, NGR, IFREL, IFRELO ) 
CUNI VIRTUAL /BEOB/ 

IMPLICIT DOUBLE PRECISION (A-H, O-Z ) 

DOUBLE PRECISION M 

CHARACTER*12 IZEIT CATA 

C Unterprogramm zur numerischen Integration des Mehrkörperproblemes 
C nach der Formel von Adams und Stürmer. 
C NOBSE und NOBSF= Nummer der nächsten und letzten nachzur. Beobachtung. 

SAVE 

EXTERNAL DADD, DSUB , DMUL, DDIV 

PARAMETER (LN=27 ,LI=1 1 , LI1=LI+1 , LM=LI/2 ,LM1=LM+1 , LI0=LI- 1 ) 

PARAMETER ( LBE=5 0,LST=200,LU=16) 

COMMON/BEOB/TOBS(LBE) ,RA(LBE) ,DEKL(LBE) ,DW(LBE) , DY ( LBE ) ,DZ (LBE) , 
.NTOBS(LBE) 



COMMON/ ZUSK/TZ /MASSE/M (LN) /ERR/MERR 
COMMON/POLYNO/F(LI) ,G(LI1) ,ABERR 
COMMON/OG/X(3,LN) , DDX ( 3 , LN ) , DX ( 3 , LN ) 
COMMON /ANZAHL/N , NF , DGESCH , DTO , IFBVO /BAND1 /NP 1 
COMMON /MATRIX/ Y( 3, LN, LH) , DDY ( 3 , LN , LH ) 
COMMON/RELl/DXR(3,LN) , IFVW, IN/IO/GD (LU ) ,IFMT,IEPC 
COMMON/BAHN/E ( LU ) , NRBV/EQUIN/EQ , IRES , IUT 
IF( (NRBV.NE.101.OR. ( IELEM. EQ. . AND . IEPHE .EQ . ) 
. .OR.IANFG.GE.IENDE) . AND . IENDE . NE . ) IENDE=0 
NANZ=MAX0 ( NANZ , IENDE ) +LM 
IF (NANZ. LT. LM1) RETURN 
WRITE(7,71 )IZEIT(0) , NANZ, DT CATA 

71 FORMAT ( ' *',A12,' Beginn Integration, ',16,' Schritte ',F5.2, 

1 Tage Intervall ' ) 

DO10IN=LMl,NANZ 
C Durch nachfolgende Schleife werden die nächsten Differenzen der 
C Koordinaten gebildet und werden zugleich alle Koordinaten zeitlich 
C einen Schritt zurückversetzt. 
C Auf Y(l-LI) sind die Koordinaten, auf Y(LI1) deren letzte Differenzen. 

IF(MOD(IN,50) .EQ.0)WRITE(7,72)IN, 100*IN/NANZ CATA 

72 FORMAT(17X,' Integrationsschritte: ',17,' (',13,'% ) ...') CATA 
D011I=NP1,N 

D012K=1,3 

D013L=1,LI 
COP Y ( K , I , LI 1 ) = Y ( K , I , L 1 1 ) +F ( L ) * DDY ( K , I , L ) 

Y(K,I,LI1)=DADD(Y(K,I,LI1) , DMUL ( F ( L ) ,DDY(K,I,L) ) ) 

Y(K,I,L)=Y(K,I,L+1) 
13 CONTINUE 
C Es erfolgt die Bildung der neuen Koordinaten. 
COP Y(K,I,LI)=Y(K,I,LI)+Y(K,I,LIO) 

Y(K,I,LI)=DADD(Y(K,I,LI) ,Y(K,I,LI0) ) 

X(K,I)=Y(K,I,LI) 
12 CONTINUE 
11 CONTINUE 

IF ( NGR . NE . . OR . IFREL . NE . ) CALL GESCHI ( IFRELO , N ) 

CALL BESCHL 

IF(MOD( IN, IELEM) .EQ.O.AND. (TZ.EQ. .0D0.OR. (NRBV.EQ. 10 LAND. 
.IN.LE.IENDE.AND.IN.GE.IANFG) ) )IDR=1 

D08K=1,3 

D08I=NP1,N 

A=DDY(K,I, 1) 

DDY(K,I, 1)=DDX(K,I) 

L0=LI+IDR 
C Bildung der neuen Differenzen der Beschleunigungen 

DO9L=2,L0 

B=DDY(K,I,L) 
COP DDY(K,I,L)=DDY(K,I,L-1)-A 

DDY(K,I,L)=DSUB(DDY(K,I,L-1) ,A) 
9 A=B 
8 CONTINUE 

IF(IDR.NE.0)CALL GESCH(NP1,N) 

IF(MOD(IN,ID) .EQ.O.AND. TZ.EQ. . 0D0 ) IDR=IDR+2 

IF ( IDR . EQ . 3 .AND . IELEM . LT . ) IDR=4 

IF ( IDR . NE . ) CALL OUTPUT ( DT* IN+ANF , IDR , DT ) 
C Jetzt wird noch geprüft, ob von dem zu berechnenden Körper eine Beob- 
C achtung oder Ephemeride zu berechnen ist oder beides. 

IF ( MERR.EQ. LAND. IN. GT. IENDE (CALL ANZ ( 1) 

IF ( IEPHE . EQ . . OR . IN . LT . IANFG . OR . IN . GT . IENDE . OR . NRBV . NE . 1 1 ) GOT05 6 

IF(MOD( IN, IEPHE) .NE.0JGOTO56 
COP T=DT* IN+ANF 

T=DADD ( ANF , DMUL ( DT , DBLE ( IN ) ) ) 

TT=0.0D0 
COP IF(IUT.EQ.0)CALL EPH ( T, TT, ABERR*IFVW, NF , DT, ,NRBV, IFBVO ) 

IF ( IUT . EQ . ) CALL EPH ( T , TT , DMUL ( ABERR , DBLE ( IFVW ) ) , NF , DT , 
0, NRBV, IFBVO) 



COP 
COP 



IF ( IUT . NE . ) CALL EPH ( T , -DTET ( T ) /DT , ABERR* IFVW, NF , DT , - 1 , NRBV, IFBVO ) 
IF(IUT.NE.O)CALL EPH ( T, -DDIV( DTET ( T ) , DT ) , DMUL (ABERR, DBLE ( IFVW) ) , 
NF , DT ,- 1 , NRBV , IFBVO ) 

56 CONTINUE 
IF(NOBSE-IFVW.EQ.NOBSF)GOT057 

IF ( NTOBS ( NOBSE ) . NE . IN* IFVW ) GOT057 

T=DT*IN+ANF 

Tl=(T-TOBS( NOBSE) ) /DT 

T=DADD ( ANF , DMUL ( DT , DBLE ( IN ) ) ) 

Tl=DDIV(DSUB(T,TOBS(NOBSE) ) , DT ) 

CALL EPH ( T , Tl , ABERR*IFVW, NF , DT , NOBSE , NRBV, IFBVO ) 

CALL EPH (T,T1, DMUL (ABERR, DBLE (IFVW) ) , NF, DT, NOBSE , NRBV, IFBVO ) 

NOBSE=NOBSE+IFVW 

GOT056 

57 CONTINUE 
10 CONTINUE 

WRITE(7,*) ' * ' , IZEIT(O) , ' Ende Integration' 

IF ( IEPC . NE . 1 ) RETURN 
Zur Fortführung ggf. Status am Integrationsende ausstanzen 

CALL GESCH(NP1,NF) 

CALL OUTPUT(DT*NANZ+ANF,5,DT) 

RETURN 

END 

SUBROUTINE IK 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
Berechnet die Koeffizienten der Integrations formein der numerischen 
Integration und der Anfangsiteration. LI Integrationsgrad 
*** Dieses Unterprogramm funktioniert vorerst nur für LI=11 ! *** 

SAVE 

PARAMETER ( LI=1 1 ,LI 1=LI+1 , LI2=4 , LM=LI/2 ,LM1=LM+1 ) 

COMMON/POLYNO/F(LI) ,G(LI1) , AB, H ( LI2 ) /POLYNl/E ( LI , LI ) 
Integrationskoeffizienten 



1)=1.D0 

2)=0.0D0 

3)=1. DO/12. DO 

4)=1. DO/12. DO 

5)=19. DO/240. DO 

6)=3. DO/40. DO 

7)=863. DO/12096. DO 

8)=275. DO/4032. DO 

9)=3 3953.DO/518400.DO 

10)=8183. DO/129600. DO 

11)=3250433.D0/53222400.D0 

1)=.5D0 

2)=-l.D0/6.D0 

3)=-l. DO/24. DO 

4)=-l. DO/45. DO 

5)=-7. DO/480. DO 

6)=-107. DO/10080. DO 

7)=-199. DO/24192. DO 

8)=-6031. DO/907200. DO 

9)=-5741.DO/1036800.D0 

10) =-1129981. DO /239500800. DO 

11)=-0.004091970674001924D0 

12 )=-0. 003599754 97202679742D0 

1)=0.5D0 

2)=1.D0/3.D0 

3)=7. DO/24. DO 

4)=97. DO/360. DO 

5)=367. DO/1440. DO 



Koeffizienten der Anfangsiteration 
E(7,1)=-14797.D0/191600640.D0 
E(7,2)=9 0817.D0/95800320.D0 
E(7,3)=-1763939.D0/319334400.D0 
E(7,4)=166919.D0/7983360.D0 



E(7, 5) =-10111819. DO/159667200. DO 

E(7,6)=31494553.D0/79833600.D0 

E(7,7)=14797.D0/82944.D0 

E(7,8)=-60917.DO/1900800.DO 

E(7,9)=4 66157.D0/63866880.D0 

E(7,10)=-79829.D0/68428800.D0 

E(7,11)=87299.DO/958003200.DO 

E(8,1)=-263.D0/1871100.D0 

E(8,2)=2 63.D0/149688.D0 

E( 8, 3) =-131. DO/ 12474. DO 

E(8,4)=159. DO/3850. DO 

E(8,5)=-41543.D0/311850.D0 

E(8,6)=111973.D0/124740.D0 

E(8,7)=35932.D0/31185.D0 

E(8,8)=263. DO/5670. DO 

E(8,9)=3587.D0/623700.D0 

E(8,10)=-707.D0/534600.D0 

E(8,11)=109.D0/935550.D0 

E(9,1)=-1063.D0/3942400.D0 

E( 9, 2) =65 11. DO/ 197 1200. DO 

E(9,3)=-10833.DO/563200.DO 

E(9,4)=102 9.D0/14080.D0 

E(9,5)=-88827.D0/394240.D0 

E(9,6)=2 80821.D0/197120.D0 

E(9,7)=4 345149.D0/1971200.D0 

E(9,8)=4 64187.DO/492800.D0 

E(9,9)=7 443.D0/71680.D0 

E(9,10)=-529.D0/78848.D0 

E(9,11)=1693.D0/3942400.D0 

E(10,1)=-52.D0/467775.D0 

E(10,2)=7 58.D0/467775.D0 

E(10,3)=-356.D0/31185.D0 

E(10,4)=8368.D0/155925.D0 

E(10,5)=-6584.D0/31185.D0 

E(10,6)=2 80124.D0/155925.D0 

E(10,7)=532184.D0/155925.D0 

E(10,8)=2 704.D0/1485.D0 

E(10,9)=2 3756.D0/22275.D0 

E(10,10)=122.D0/1701.D0 

E(10,11)=-124.D0/93555.D0 

E(11,1)=-77425.D0/38320128.D0 

E(11,2)=62875.D0/2737152.D0 

E(11,3)=-1539875.D0/12773376.D0 

E(11,4)=2 08625.D0/532224.D0 

E(ll, 5) =-5942875. DO/6386688. DO 

E(11,6)=10314625.D0/3193344.D0 

E(11,7)=2 2426625.D0/6386688.D0 

E(11,8)=5650375.D0/1596672.D0 

E(11,9)=21348625.D0/12773376.D0 

E(11,10)=21621125.D0/19160064.D0 

E(11,11)=2 02025.D0/3483648.D0 

D01I=1,LM 

D02J=1,LI 

E(LMl-I, J)=E(LM1+I,LI1-J) 

2 CONTINUE 
1 CONTINUE 

D03J=1,LI 
E(LM1, J)=.ODO 

3 CONTINUE 
RETURN 
END 

SUBROUTINE ANFANG ( Nl , N2 , NGR , IFREL , IFRELO ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

EXTERNAL DSQRT , DADD , DSUB , DMUL , DDIV 



DOUBLE PRECISION M,LM2D 

CHARACTER*12 IZEIT CATA 

PARAMETER(LN=2 7,LI=11,LI1=LI+1,LM=LI/2,LM1=LM+1,LM2=LM**2,LABBR=2) 

PARAMETER ( LM2 D=LM2 * 1 . DO , LI 1 3=LI 1 * 3 ) 

COMMON /ANZAHL/N, NF/REL1/DXR( 3, LN ) , IFVW, IN/BAND1/NP1 

COMMON /MASSE/M (LN) 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) , DX ( 3 , LN ) 

COMMON/MATRIX/Y(3,LN,LIl) , DDY ( 3 , LN ,LI1 ) 

COMMON/POLYNl/E(LI,LI) 
C Programm wandelt für die Körper Nl bis N2 zu Integrationsbeginn 
C Ort und Geschwindigkeit um in die Örter für LI Zeitpunkte um die Epoche. 
C Iteration bis Abbrkrit. SV erfüllt ist, zzgl. noch LABBR weitere Male. 
C YZ Koordinaten des Zentralkörpers (bei Monden) 

WRITE(7,71 )IZEIT(0) ,N1,N2 
71 FORMAT ( ' *',A12,' Beginn Anfangsiteration, Objekt', 13,' bis', 13) 

SV=.0D0 

NSV=0 

NSV0=50 

D01I=N1,N2 

D02K=1,3 

D03J=1,LI 
C Bildung von ersten Näherungswerten. 
COP Y(K,I, J)=X(K,I)+DX(K,I)*( J-LM1) 

Y ( K , I , J ) =DADD ( X ( K , I ) , DMUL ( DX ( K , I ) , DBLE ( J-LM1 ) ) ) 

3 CONTINUE 
2 CONTINUE 
1 CONTINUE 

C Es erfolgt die iterative Berechnung der Anfangsrandwerte für LI Zeitpunkte. 
12 CONTINUE 

S=SV 

SV=.0DO 

NSV=NSV+1 

D04J=1,LI 

D05I=NP1,N2 

D06K=1,3 
C Aus der allgemeinen Koordinatenmatrix Y, welche die Positionen aller 
C Körper für alle (11) Zeiten enthält, wird die Matrix X dieser Koordinaten 
C nur für einen Zeitpunkt, entnommen, um damit die Beschleunigungen zu ber. 

X(K,I)=Y(K,I,J) 
6 CONTINUE 
5 CONTINUE 

IN=J-LM1 

IF ( NGR . NE . . OR . IFREL . NE . ) CALL GESCHW ( J- 1 , IFRELO , N ) 

CALL BESCHL 
C Nach der Berechnung der Beschleunigungen DDX für einen Zeitpunkt 
C werden diese Ergebnisse in die Beschleunigungsmatrix für alle Zeiten, 
C DDY, abgelegt und diese so aufgebaut. 

D016I=N1,N2 
COP X0=DSQRT ( ( DX ( 1 , 1 ) * *2+DX (2,1)* * 2+DX ( 3 , I ) * *2 ) *LM2 
COP . +X(1,I)**2+X(2,I)**2+X(3,I)**2) 
COP IF(X0.EQ. .0D0)X0=DSQRT(DDX( 1 , I ) **2+DDX ( 2 , I ) **2+DDX ( 3 , I ) **2 ) *LM2 

X0=DHYPOT ( DMUL ( DHYPOT ( DX ( 1 , I ) , DHYPOT ( DX ( 2 , I ) , DX ( 3 , I ) ) ) , LM2D ) , 

DHYPOT ( X ( 1 , I ) , DHYPOT (X(2,I),X(3,I)))) 
IF(X0.EQ. .0D0) 
. X0=DMUL ( DHYPOT ( DDX (1,1), DHYPOT ( DDX (2,1), DDX (3,1))), LM2D ) 

IF(X0.EQ. .ODO)XO=l.D0 

D017K=1,3 
COP SV=SV+DABS(DDY(K,I, J)-DDX(K,I) )/X0 

SV=DADD ( SV , DDIV ( DABS ( DSUB ( DDY ( K , I , J ) , DDX ( K , I ) ) ) , XO ) ) 

DDY(K,I, J)=DDX(K,I) 
17 CONTINUE 
16 CONTINUE 

4 CONTINUE 



D07J=1,LI 
D08I=N1,N2 
D09K=1,3 
COP Y ( K , I , J ) =Y ( K , I , LM1 ) + ( J-LM1 ) * DX ( K , I ) 

Y(K,I,J)=DADD(Y(K,I,LM1) , DMUL ( DX ( K, I ) , DBLE ( J-LM1 ) ) ) 
C Durch die Kombination der Differenzen der Beschleunigungen werden 
C verbesserte Werte der Anfangswerte berechnet. 

DO10L=l,LI 
COP Y ( K , I , J ) =Y ( K , I , J ) +E ( J , L ) *DDY ( K , I , L ) 

Y(K,I,J)=DADD(Y(K, I, J) , DMUL ( E ( J,L) ,DDY(K,I,L) ) ) 

10 CONTINUE 

9 CONTINUE 

8 CONTINUE 

7 CONTINUE 

IF ( NSV . GT . 5 ) GOT02 

IF(DABS(S-SV) .LT. 2 . D-15 . AND . NSVO . EQ . 50 )NSV0=NSV 

IF ( NSV-NSVO . LT . LABBR ) GOTO 1 2 

GOT025 

20 WRITE(6,21 )DABS(S-SV) 

21 FORMAT(/' Schlechte Konvergenz in Anfangswertberechnung für', 
. ' die Integration.',/,' Die Werte nach der fünfzigsten ', 

. 'Iteration werden beibehalten.',/,' Summe der Ungenauigkeit ' , 
. ' aller Koordinaten ',G8.1/) 
2 5 CONTINUE 

CALL DIFF(N1,N2,-1) 

WRITE(7,*) ' * ' ,IZEIT(0) , ' Ende Anfangsiteration' CATA 

RETURN 

END 

SUBROUTINE BESCHL 
CUNI VIRTUAL /BD800/ 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

EXTERNAL DSQRT , DPOW , DADD , DSUB , DMUL , DDI V 

DOUBLE PRECISION M,M0 

PARAMETER ( LN=2 7 , LU= 1 6 , LU3 =LU- 3 , LG=2 8 , LREC= 1 8 ) 

PARAMETER (LI=1 1 ,LM=LI/2 , LI1=LI+1 , LM1=LM+1 ) CATA 

PARAMETER ( D53=5 . DO/3 . DO ) 

COMMON/BD8 00 /BD8 ( LG , LREC ) /BD8 00 /NREC1 , NREC2 , NREC 

COMMON /ANZAHL/N , NF , DGE , DT , IFBV0 , NB1 , NB2 , NB6 , IMOND 

COMMON/ ZUSK/TZ , IEPHE , IOBS , IANF , IENDE , IBV0 , NGR, GROESE , IFREL , IFREL0 

COMMON /MASSE/M ( LN ) /BAHN/E ( LU ) /NG/G ( 3 , LU3 ) , DG ( 3 , 3 ) 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) /REL1 /DX ( 3 ,LN ) , IFVW, IN, CL , ANF 

COMMON/BAND/NP,ANFP,DTP/BANDl/NPl,IBAND,NP0,XM(3) 

DIMENSION D(LN,LN) ,D00(LN) 

DIMENSION BD8ANF(LG,LI) CATA 

EQUIVALENCE (D(1,4),D0 0(1)) 

DATA IANFG /0/ CATA 

C Programm zum Berechnen der Fallbeschleunigung von zahlreichen Körpern 
C in ihrem eigenen zusammengesetzten Schwerefeld. 

C Koordinaten und Beschleunigungen sind auf denjenigen Körper mit der 
C Nummer 1 bezogen, dessen Koordinaten und Geschwindigkeiten =0 sind. 
C D ist die Distanz der Körper zueinander, hoch 3. 

C Auf BD8ANF werden die während der Anfangsiteration benötigten Planeten- 
C koordinaten abgelegt falls von Datei zu lesen, damit nicht mehrmals ganze 
C Blöcke gelesen werden müssen wenn ihre Grenze in diesen Bereich fällt. 
C Diese Anweisungen kann man weglassen, wenn die gesamte Datei auf BD8 
C gelesen wird (MXREC=LREC in SUBR.BD8A ff.). Nur b.NPl=NF (alle PI. v. Band)! 

T=ANF+DT*IFVW*IN 

IF ( NP1 . GT . 2 . OR . IBAND . NE . ) NREC=NINT ( ( T-ANFP ) /DTP ) 

IF(NP1.LE.2 )GOT0554 

IF( (IN.LT.LM1.AND. IANFG. EQ. LI) . AND .NP1 . EQ .NF ) GOT05 4 7 CATA 

IF ( NREC . LE . NREC1 . OR . NREC . GT . NREC2 ) CALL BD8 ( ) 

NREC0=NREC-NREC1 
CT Später nachf .Anw. sowie die unten beim Schreiben raus und LG=27 statt 28 

if (dabs(bd8(2 8,nrec0)-t) .lt. . OOldO )goto9 9 9 



wr ite ( 6 , 9 9 8 ) nr ec , nrec , nrec 1 , t , bd8 ( 2 8 , nrecO ) 

998 format(/' Planetenfile falsch: NREC, NRECO ,NREC1 ,T,T auf File:',/, 

2X,3I8,2F14 .2) 
stop 

999 continue 
D0543K=1,3 
XM(K)=BD8(K, NRECO) 
DO543I=2,NP0 
X(K,I)=BD8( (I-l)*3+K, NRECO) 

543 CONTINUE 

GOT055 4 CATA 

547 CONTINUE CATA 

if ( dabs ( bd8anf ( 28 , lml+in*if vw) -t ) . lt . . 00 IdO ) goto9 97 

write(6,996)in,t,bd8anf ( 28 , lml+in*ifvw) 

996 format(/' BD8ANF falsch: IN,T,T von BD8ANF : ' , 18 , 2F14 . 2/ ) CATA 
stop CATA 

997 continue CATA 
D0548K=1,3 CATA 
XM(K)=BD8ANF(K,LM1+IN*IFVW) 

DO548I=2,NP0 CATA 

X(K,I)=BD8ANF( (I-1)*3+K,LM1+IN*IFVW) 
54 8 CONTINUE CATA 

554 CONTINUE 

D01I=2,NF 

MO=I-l 

D02J=l,MO 

D(I,J)=.0D0 

D03K=1,3 
COP D(I,J)=D(I,J)+(X(K,I)-X(K,J))**2 

D(I, J)=DHYPOT(D(I, J) ,DSUB(X(K,I) ,X(K, J) ) ) 
3 CONTINUE 
COP D(I, J)=D(I, J)*DSQRT(D(I, J) ) 

D(I, J)=DPOW(D(I,J) ,3.0D0) 

D(J,I)=D(I, J) 
2 CONTINUE 
1 CONTINUE 
C Jetzt sind alle Distanzen bekannt und es kann zur Berechnung 
C der Beschleunigungen übergegangen werden. 

D05I=NP1,NF 
COP M0=M(1)+M(I) 

M0=DADD(M( 1) ,M(I) ) 

D06K=1,3 
COP DDX(K,I)=-M0*X(K,I)/D(I, 1) 

DDX(K,I)=-DDIV(DMUL(MO,X(K,I) ) ,D(I, 1) ) 

D07J=2,NF 

IF(I.EQ. JJG0T07 
COP DDX(K,I)=DDX(K,I)+M( J)*( (X(K,J)-X(K,I))/D(I,J)-X(K,J)/D(J,1)) 

DDX(K,I)= DADD(DDX(K,I) , DMUL(M(J), 
. DSUB(DDIV(DSUB(X(K,J) ,X(K,I) ) ,D(I, J) ) ,DDIV(X(K, J) , D ( J, 1 ) ) ) ) ) 

7 CONTINUE 
6 CONTINUE 
5 CONTINUE 
C Ggf. Erde+Mond-Baryz . , relativist. Effekte, nichtgrav.o. ä. Zusatzkr . add. 
IF ( IMOND . NE . ) CALL MOND1 ( IMOND , NF , D00 , T ) 
IF ( IFREL . NE . ) CALL REL ( IFREL , IFRELO , NF ) 
IF ( NGR . NE . .AND . TZ . NE . . 0D0 ) CALL NGF ( NF , NGR, IFBVO ) 
IF(IBAND.EQ.0)GOTO555 
C IF(IBAND.EQ.0.OR.TZ.NE. .0D0JGOTO555 falls Planeten vollst . int . o . gelesen 

NREC0=NREC-NREC1 
CT Später weg: 

bd8(28,nrec0)=t 

D0544K=1,3 

BD8(K,NREC0)=XM(K) 



D0544I=2,NP 

BD8( (I-1)*3+K,NREC0)=X(K,I) 
544 CONTINUE 

IF(NREC.EQ.NREC2 (CALL BD80(1) 
555 CONTINUE 

IF(NP1.LE.2 (GOT0549 CATA 

IF( (IN.GE.LMl.OR.IANFG.EQ.LI) . OR. NP1 .NE .NF )GOT054 9 CATA 

bd8anf ( 28 , lml+in*ifvw)=t 

DO550K=l,3 CATA 

BD8ANF(K,LM1+IN*IFVW)=XM(K) 

DO550I=2,NP CATA 

BD8ANF( (I-1)*3+K,LM1+IN*IFVW)=X(K,I) 
550 CONTINUE CATA 

IANFG=IANFG+1 CATA 

54 9 CONTINUE CATA 

C Jetzt werden noch ggf. die Differentialquotienten der Bahnverbesserung nach 
C der Methode von Sitarski, Acta Astronomica 21, Seite 87 (1971), berechnet. 
C Siehe auch 'Die Sterne' 59 Heft 3 S. 153f., Gl. [4, 17a] 

IF ( IFBVO . EQ . ) RETURN 
COP D0=3.D0/D(NF, 1 )**D53*(M( 1)+M(NF) ) 

D0=DDIV(DMUL(3.D0,DADD(M( 1) ,M(NF) ) ) ,DPOW(D(NF, 1) ,D53) ) 

D011L=1,3 

DO10K=l,3 

IF(NGR.EQ.O)G(K,L)=.OD0 
COP G(K,L)=G(K,L)+X(K,NF)*X(L,NF)*DO 

G ( K , L ) =DADD ( G ( K , L ) , DMUL ( DMUL ( X ( K , NF ) , X ( L , NF ) ) , DO ) ) 

10 CONTINUE 

COP G(L,L)=G(L,L)-(M(1)+M(NF))/D(NF,1) 

G(L,L)=DSUB(G(L,L) , DDIV( DADD (M( 1 ) , M(NF ) ) , D (NF , 1 ) ) ) 

11 CONTINUE 

C Die Summierung über J ergibt den Zusatz wegen den Planetenstörungen 

D012J=2,NB1 
COP D0=3.D0/D(NF, J)**D53*M( J) 

D0=DMUL(DDIV(3.D0,DPOW(D(NF,J) , D53 ) ) ,M( J) ) 

D013L=1,3 

D014K=1,3 
COP G(K,L)=G(K,L)+(X(K,NF)-X(K,J))*(X(L,NF)-X(L,J) ) *D0 

G(K,L)=DADD(G(K,L) , 

DMUL ( DMUL ( DSUB ( X ( K , NF ) , X ( K , J ) ) , DSUB ( X ( L , NF ) , X ( L , J ) ) ) , DO ) ) 

14 CONTINUE 

COP G(L,L)=G(L,L)-M( J)/D(NF, J) 

G(L,L)=DSUB(G(L,L) ,DDIV(M( J) ,D(NF, J) ) ) 
13 CONTINUE 

12 CONTINUE 

C gem. [21] und nachf. Anm. 
D015I=NB2,N 
D015K=1,3 

DDX ( K , I ) =G ( K , 1 ) *X ( 1 , 1 ) +G ( K , 2 ) *X ( 2 , I ) +G ( K , 3 ) *X ( 3 , 1 ) 
. +DG (K,1)*DX(1,I) +DG ( K , 2 ) *DX ( 2 , I ) +DG ( K , 3 ) *DX ( 3 , I ) 

15 CONTINUE 

IF ( NGR . LT . 1 ) RETURN 

D017I=1,NGR 

D017K=1,3 
17 DDX(K,NB6+I)=DDX(K,NB6+I)+G(K,3+I) 

RETURN 

END 

SUBROUTINE NGF (NF , NGR, IFBVO ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Berücksichtigung zusätzlicher Kräfte, deren Konstanten (Parameter) 
C auch bestimmt werden können ( z .B .nichtgravitative Kräfte oder 
C zu korrigierende Planetenmasse). NGR=Anzahl der Kräfte bzw. 
C Parameter, NF=Index des Zusatzkörpers. IFVW wird gebraucht, falls eine 
C Kraft in Richtung der Geschw. wirkend angen.wird o.a. (Zeitumkehr). 
C ISTIL=0: Zusatzkräfte fester Richtung ( s . SUBR.NGF1 ) 
C ISTIL>0: Nichtgravitative Kräfte beliebiger Sorte ( s . SUBR.NGFO ) 



C Formeln gem.allgem. Formulierung in 'Die Sterne' 59(1983) H.3 S.153ff. in [] 

C Die nichtgravitativen Kräfte werden in der allgemeinsten Form ({}=Summe) 

C Kraft (K)={A(K,IRTV)*F(IRTV) } Über IRTV=1 bis IRTVM [6] 

C mit F(IRTV)={APAR(IRTV,IS)*B(IRTV,IS)*FRTV(IRTV,IS)} Über IS 

C angesetzt. Dabei ist K=l,2,3 der Index für x,y,z, IRTV=1,2,3 für 

C radial, toroidal und vertikal zum Kometen, IS=<LS der Index des 

C betr. Summanden der gesamten radialen, toroidalen bzw. vertikalen 

C Kraftfunktion (r:=s:=t in [6]). B(IRTV,IS) ist von einem Parameter 

C BPAR( IRTV, IS ) und der Zeit abhängig [14]. Die vorkommenden Parameter 

C AP AR (1,1) BPAR (1,1) AP AR (1,2) BPAR (1,2) .... 

C AP AR (2,1) BPAR (2,1) AP AR (2,2) BPAR (2,2) .... 

C AP AR (3,1) BPAR (3,1) AP AR (3,2) BPAR (3,2) .... 

C ( Hauptterme ) (weitere Terme) 

C können als Unbekannte berechnet werden, wobei die ersten davon (IS=1) 

C z.Bsp. den nichtgrav. Parametern A und deren zeitl . Veränd. B nach 

C Marsden entsprechen, die zweiten (IS=2) ggf. Zusatzgliedern dieser 

C Formel usw (je nach Ansatz in SUBR.NGFO). DFRTV und DB sind die 

C Differentialquotienten von FRTV nach r div. durch r, bzw. B nach BPAR. 

C Damit ohne große Anzahl an Unbekannten (LU) die i.d.R. wenigen zu 

C berücks. Parameter möglichst flexibel wählber sind, gibt 

C IPAR( IRTV, IS, IAB) =1 bzw. =0 an, welche der Parameter APAR oder BPAR 

C (IAB=1 bzw. 2) berücksichtigt werden sollen und welche nicht. Ist z.Bsp. 

C ISTIL=2 und IPAR (1,1,1) , (2,1,1) und (2,1,2) =1, so werden A1,A2,B2 

C nach Marsden Stil 2 verwendet. 

C IRTVM, ISM die aktuell max. vorkommenden Werte fuer IRTV, IS 

SAVE 

PARAMETER (LN=2 7 ,LU=16 , LU3=LU-3 ,LS=3 ) 

EXTERNAL DSQRT 

DIMENSION A(3,3),F(3),DF(3) ,DFDPAR(3,4 ) 

COMMON/NGl/APAR(3,LS) , BPAR (3, LS) , IPAR( 3 ,LS , 2 ) , IRTVM, ISM, 
FRTV ( 3 , LS ) , DFRTV ( 3 , LS ) , B ( 3 , LS ) , DB ( 3 , LS ) 

COMMON/STIL/ISTIL/RELl/DX(3,LN) , IFVW, IT, CL, ANF 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) /BAHN/E (LU ) /NG/G ( 3 , LU3 ) ,DG(3,3) 

COMMON/ANZAHL/NN0 , NFO , DGO , DT 

EQUIVALENCE (ANF,T0) 

DATA A,F,DF /9* . 0D0 , 3* . 0D0 , 3* . 0D0/ 

DATA DFDPAR /12*.0D0/ 

M(I)=MOD(I+2,3)+l 

IF(ISTIL.EQ.0)GOTO7 
C ### Berechnung nichtgravitativer Kräfte bei Kometen ### 
C Berechnung der begleitenden Einheitsvektoren A am Körper, usw. [7,8] 

D03K=1,3 
C Berücksichtigung der Integrationsrichtung 
3 DX(K,NF)=DX(K,NF)*IFVW 

R2=(X( 1,NF)*X( 1,NF)+X(2,NF)*X(2,NF)+X(3,NF)*X(3,NF) ) 

R=DSQRT(R2 ) 

RV=DX ( 1 , NF ) *X ( 1 , NF ) +DX ( 2 , NF ) *X ( 2 , NF ) +DX ( 3 , NF ) *X ( 3 , NF ) 

V2=DX ( 1 , NF ) *DX ( 1 , NF ) +DX ( 2 , NF ) *DX ( 2 , NF ) +DX ( 3 , NF ) *DX ( 3 , NF ) 

V=DSQRT(V2 ) 

RV2=RV*RV 

A0=R*DSQRT(R2*V2-RV2) 

DO10K=l,3 

A(K, 1)=X(K,NF)/R 

A(K,2)=(R2*DX(K,NF)-RV*X(K,NF) ) /A0 

IF(IRTVM.EQ.3)A(K,3)=(X(M(K+1) ,NF) *DX(M(K+2) ,NF)- 
X(M(K-1) ,NF)*DX(M(K-2 ) , NF ) )*R/A0 
10 CONTINUE 
C Aufruf der jeweiligen Kraftfunktion, zeitl. Veränderung usw 

TB= ( ANF+IT*DT* IFVW-TO ) / 1 . D4 

CALL NGFO ( NGR ,ISTIL,TB,R,R2,RV, IFBVO , DFDPAR ) 
C Auf summierung der gesamten radialen, transv. und vertikalen Kräfte 
C F entspricht den Summen in [6], DF denen in [17a] 

DO102IRTV=l, IRTVM 

F(IRTV) = .0D0 

DF(IRTV)=.0D0 



DO102IS=l,ISM 

IF(IPAR(IRTV,IS, 1) .EQ.0)GOTO102 

F ( IRTV ) =F ( IRTV ) +APAR ( IRTV, IS ) *B ( IRTV, IS ) *FRTV ( IRTV, IS ) 
IF(IFBVO.NE.O) 
. DF ( IRTV ) =DF ( IRTV ) +APAR ( IRTV , IS ) *B ( IRTV, IS ) *DFRTV ( IRTV, IS ) 

102 CONTINUE 

IF ( IFBVO . EQ . ) GOT09 
C Berechnung der Zeitentwicklungsterme der nichtgrav. Parameter [17b, 17c] 
C IAB=1 bzw. 2 für die Parameter APAR [17b] bzw. BPAR [17c]: 

IUNB0=3 

DO103IS=l,ISM 

DO103IRTV=l,IRTVM 

DO103IAB=l,2 

IF(IPAR(IRTV,IS,IAB) . EQ . ) GOTO103 
C E(3+IUNB0)= je nach IAB: APAR bzw. BPAR ( IRTV, IS) 

IUNB0=IUNB0+1 

DO10lK=l,3 

IF(IAB.EQ. 1 )G( K, IUNBO ) =A( K, IRTV) *FRTV( IRTV, IS )*B( IRTV, IS) 

IF(IAB.EQ.2 ) 
. G(K, IUNBO )=A(K, IRTV) *APAR( IRTV, IS) *FRTV( IRTV, IS ) *DB ( IRTV, IS ) 
101 CONTINUE 

103 CONTINUE 

C Hinzufügung der Zusatzterme zu den G(K=l-3 ,L=l-3 ) [17a, 17d] 
D011K=1,3 
D012L=1,3 

G(K,L)=-X(K,NF)*X(L,NF)/R2/R*F( l)+( (R2 *RV*DX (L,NF ) 
-(2.D0*R2*V2-RV2)*X(L,NF) )*A(K,2)/A0 
+2.D0*DX(K,NF)*X(L,NF)-X(K,NF)*DX(L,NF) )/A0*F(2) 
+R2/A0/A0*A(K,3)*(RV*DX(L,NF)-V2*X(L,NF) )*F(3) 
+A(K, 1) *DF(1)+A(K,2)*DF(2)+A(K,3)*DF(3) 
DG(K,L)=-F(2)*( (R2*R2*DX(L,NF)-R2*RV*X(L,NF) )*A(K,2)/A0 
. +X(K,NF)*X(L,NF) ) /A0+R2/A0 /A0*A( K, 3 ) * (RV*X (L,NF ) -R2 *DX (L,NF ) )*F(3) 
12 CONTINUE 

G(K,K)=G(K,K)-RV*F(2)/A0+F(1)/R 
DG(K,K)=DG(K,K)+R2*F(2)/A0 
C Falls nur Kräfte in der Bahnebene, nachfolgende Anweisungen belanglos 
IF ( IRTVM . LT . 3 ) GOTOl 1 

G(K,M(K+1) )=G(K,M(K+1) )+DX(M(K+2) , NF ) *R/A0*F ( 3 ) 
G(K,M(K-1) )=G(K,M(K-1) )-DX(M(K-2 ) , NF ) *R/A0*F ( 3 ) 
DG(K,M(K+1 ) )=DG(K,M(K+1) )+X(M(K+2) , NF ) *R/A0*F ( 3 ) 
DG(K,M(K-1) )=DG(K,M(K-1) )-X(M(K-2 ) , NF ) *R/A0*F ( 3 ) 
11 CONTINUE 

IF ( ISTIL . NE . 5 . AND . ISTIL . NE . 6 ) GOT09 
C Terme bei Variation des Kräfteverlaufes 
DO104I=l,4 
IU1=NGR-1+I 
DO104K=l,3 
G(K,IU1)=.0D0 
DO104IRTV=l, IRTVM 

104 G(K, IUI ) =G(K, IUI )+F ( IRTV) *A(K, IRTV ) *DFDPAR( IRTV, I ) 
9 CONTINUE 

C Hinzufügen zu der Beschleunigung des Körpers [5,6] 
D02K=1,3 

DDX(K,NF)=DDX(K,NF)+F( 1 ) *A( K, 1 ) +F ( 2 ) *A( K, 2 ) +F ( 3 ) *A( K, 3 ) 
2 CONTINUE 

RETURN 
7 CONTINUE 
C ### Zusatzkräfte mit fester Richtung (Stil 0): 
D08ING=1,NGR 
CALL NGF1(NF,ING,F) 
D08K=1,3 
D014L=1,3 
14 G(K,L)=.0D0 

IF(IFBV0.NE.0)G(K,3+ING)=F(K) 
DDX ( K , NF ) =DDX ( K , NF ) +F ( K ) *E ( 6 + ING ) 



8 CONTINUE 

RETURN 

END 

BLOCK DATA BDNGF 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER (LU=16 ,LU3=LU-3 , LS=3 , LS6=6*LS ,LDATA=3*LU+LS6 ) 

COMMON/NGl/APAR(3,LS) ,BPAR(3,LS) , IPAR ( 3 ,LS , 2 ) ,IRTVM,ISM, 
FRTV ( 3 , LS ) , DFRTV ( 3 , LS ) , B ( 3 , LS ) , DB ( 3 , LS ) 

COMMON/NG/G(3,LU3) , DG ( 3 , 3 ) 

DATA IRTVM,ISM,IPAR /0,0,LS6*0/ 

DATA B, DB, FRTV, DFRTV, G, DG /LS6* 1 . DO ,LDATA* . 0D0/ 

END 

SUBROUTINE NGFO (NGR, ISTIL, TB, R, R2 , RV, IFBVO , DFDPAR) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Vorgabe verschiedener Funktionen fuer nichtgravitative Kräfte. 
C FRVT( IRVT, IS ) radiusabhängige Funktion fuer radiale, toroidale und 
C vertikale Kraftkomponente ( IRTV=1 , 2 , 3 ) , B(IRTV,IS) ggf. zugehöriger 
C zeitlicher Wichtungsfaktor. DFR=dFR/dR/R , DB0=dB0/dB 

C Bei Hinzunahme/Änderung der Modelle, die der zeitl. Änd. in FUNCT. BDB 
C nicht vergessen ! 

C Stil 3 allg., bei El=-2.15, E2=5.093, E3=-4.6142, R1=R11=2.808 wie Stil 2. 
C Bei gr. Distanz dFR/dR prop. r** (E1+E2*E3 ) . Bei Halley war Helligk. prop. 
C r**-7 ab Rll = 6 AE ( IHW Newsl.No.7 S.26), daher Bedingg El+E2*E3 = -6 sinnvoll 
C Bei E1=0 (Kraft r-unabh.nahe Sonne) etwa E2=2,E3=-3, b.El=-2: E2=2,E3=-2 . 

SAVE 

PARAMETER (LS=3 ,LLIM=LS-1 , LU=16 ) 

EXTERNAL DEXP 

COMMON/LIM/NLIM,RLIM(LLIM) , El , E2 , E3 ,R1 , Rl 1 , CR( 3 ) , ALPHA) 3) 

COMMON/BAHN/E ( LU ) 

COMMON/NGl/APAR(3,LS) ,BPAR(3,LS) , IPAR ( 3 ,LS , 2 ) ,IRTVM,ISM, 
FRTV ( 3 , LS ) , DFRTV ( 3 , LS ) , B ( 3 , LS ) , DB ( 3 , LS ) 

DIMENSION FRTV0(3) ,DFRTV0(3) , DFDPAR (3, 4) ,U(4) 

EQUIVALENCE ( FRTVO ( 1 ) , FR ) , ( FRTVO ( 2 ) , FT ) , ( FRTVO ( 3 ) , FV ) 

EQUIVALENCE ( DFRTVO ( 1 ) , DFR ) , ( DFRTVO ( 2 ) , DFT ) , ( DFRTVO ( 3 ) , DFV ) 

DATA AL,AM,AN,AK,RO / . 1 1 1262D0 , 2 . 15D0 , 5 . 093D0 , 4 . 6 142D0 , 2 . 808D0/ 
C DATA IS, ISO /1,1/ 

IF ( ISTIL . NE . 1 . AND .ISTIL . NE . 6 ) GOT02 
C Stil 1: Formel nach Whipple (Stil 6: mit Verb, der Parameter d. Verlaufes) 

IF ( ISTIL . NE . 6 ) GOT03 1 

CR( l)=E(NGR+3) 

ALPHA ( l)=E(NGR+4 ) 
C IF(IRTVM.EQ.l)GOT031 

CR(2)=E(NGR+5) 

ALPHA(2)=E(NGR+6) 
31 CONTINUE 

D035IRTV=1,IRTVM 
35 FRTVO (IRTV)=DEXP(-R2 /CR (IRTV) ) /R**ALPHA( IRTV) / 1 . 6D7 

IF ( IFBVO . EQ . ) GOTOl 

D036IRTV=1,IRTVM 
3 6 DFRTVO ( IRTV )=-( ALPHA (IRTV) /R+2 . DO/CR ( IRTV) *R) *FRTV0 ( IRTV) /R 

IF (ISTIL. NE. 6) GOTOl 

DFDPAR(1, 1)=R2/CR( 1)/CR( 1)*FRTV0( 1) 

DFDPAR (1,2) =-DLOG ( R ) *FRTV0 ( 1 ) 

IF(IRTVM.EQ.l)GOTO10 

DFDPAR (2,3)=R2/CR(2)/CR(2)* FRTVO ( 2 ) 

DFDPAR (2,4) =-DLOG ( R ) *FRTV0 ( 2 ) 

GOTO 10 
2 CONTINUE 

IF ( ISTIL . NE . 2 ) GOT03 
C Stil 2: Formel nach Delsemme, Marsden und Sekanina 

FR=AL/(R/R0)**AM/(1.D0+(R/R0)**AN) **AK/1.D8 

FT=FR 

FV=FR 

IF ( IFBVO . EQ . ) GOTOl 



DFR=-(AM+AK*AN*( l.DO-l.DO/( 1 . D0+ ( R/RO ) **AN ) ) ) *FR/R2 

DFT=DFR 

DFV=DFR 

GOTO 10 

3 CONTINUE 

C Stil 3: allgemein f = AL * (R/R1)**E1 * ( 1+(R/R11 ) **E2 ) **E3 
IF ( ISTIL . NE . 3 ) GOT04 
A0=R/R1 

B0=1.D0+(R/R11)**E2 
FR=AL*(A0**E1)*(B0**E3)/1.D8 
FT=FR 
FV=FR 

IF ( IFBVO . EQ . ) GOTOl 

DFR=(E1+E2*E3* (1.D0-1.D0/B0) )*FR/R2 
DFT=DFR 
DFV=DFR 
GOTO 10 

4 CONTINUE 
IF(ISTIL.NE.4 )GOT05 

C Stil 4: explizit f.d. betr. Kometen vorgegebener Verlauf der 
C nichtgrav. Komponenten FR,FT,FV in Abhängigkeit von r und r*v 

CALL EXPL(R,RV,FR,FT,FV) 

IF ( IFBVO . EQ . ) GOTOl 

CALL EXPL(R+1.D-8,RV,FR1,FT1,FV1) 

DFR=(FR1-FR)*1.D8/R 

DFT=(FT1-FT)*1.D8/R 

DFV=(FV1-FV)*1.D8/R 

GOTO 10 

5 CONTINUE 

C Wie Stil 3 aber mit Verbesserung der Parameter E1,E2,E3 / R11 [=U(1...4) 
D021I=1,4 

21 U(I)=E(NGR+2+I) 
D023I=1,5 

IF(I.NE.l)U(I-l)=U(I-l)+l.D-7 
A0=R/U(4) 

B0=1.D0+(R/U(4 ) )**U(2) 
FR=(A0**U( 1) )* (B0**U(3) )/l.D8*AL 
IF(I.NE. 1JGOT022 

FR0=FR 

FT=FR 

FV=FR 

IF ( IFBVO . EQ . ) GOT022 

DFR=(U( 1)+U(2 )*U(3)*( 1.D0-1.D0/B0) )*FR/R2 

DFT=DFR 

DFV=DFR 

GOT023 

22 CONTINUE 
U(I-l)=U(I-l)-l.D-7 
D024IRTV=1,IRTVM 

2 4 DFDPAR ( IRTV, I- 1 ) = ( FR-FRO ) * 1 . D7 /FR 
2 3 CONTINUE 
C GOTO 10 

10 CONTINUE 
C ggf. stückeweise Berechnung von A1,A2 ... (IS=Index). Als Beispiel 
C Unterscheidung: IS0=1 für perihelnah mit r<RLIMl , IS0=2 für r>RLIMl 
C und vor dem Perihel, IS0 = 3 für r>RLIMl und nach dem Perihel 
C Falls RV> bzw. <0 , nach bzw. vor dem Perihel. 
IS0=1 

IF(NLIM.EQ.0)GOTO16 
D015ILIM=1,NLIM 

IF(RLIM(ILIM)*RV.LE. . 0D0 . OR. R. LE . DABS ( RLIM( ILIM) ) )GOT015 
IF(IS0.EQ. 1) GOTOl 15 

IF( DABS (RLIM( ILIM) ) .LT . DABS ( RLIM( IS0-1 ) ) ) GOTOl 5 
115 IS0=ILIM+1 
15 CONTINUE 



16 CONTINUE 

D011IS=1,ISM 

D012IRTV=1,IRTVM 

FRTV ( IRTV, IS ) = . 0D0 

B(IRTV,IS)=1.D0 

IF(IFBV0.EQ.0)GOTO12 

DFRTV(IRTV,IS)=.ODO 

DB(IRTV,IS)=.0D0 
12 CONTINUE 
Abfrage ob im betr. Bahnabschnitt 

IF(IS.NE.IS0)GOTOll 
Bei Halley über 6 AU keine nichtgrav. Kräfte angenommen !! 

if ( nlim. gt . . and . r . gt . 6 . 0D0 ) gotol 1 HAI 

D014IRTV=1,IRTVM 

IF( IPAR( IRTV, IS, 1 ) .NE . ) FRTV( IRTV, IS ) =FRTV0 ( IRTV) 

IF(IPAR(IRTV,IS,2 ) . NE. )B( IRTV, IS )=BDB( ISTIL, 1 , TB, BPAR ( IRTV, IS ) ) 

IF(IFBV0.EQ.0)GOTO14 

IF ( IPAR ( IRTV, IS , 1 ) . NE . ) DFRTV ( IRTV , IS ) =DFRTV0 ( IRTV ) 

IF(IPAR(IRTV,IS,2 ) .NE.0)DB(IRTV,IS)=BDB(ISTIL,2,TB,B(IRTV,IS) ) 
14 CONTINUE 
11 CONTINUE 

RETURN 

END 

DOUBLE PRECISION FUNCTION BDB ( ISTIL , IBDB, TB, B ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
Berechnet den Zeitfaktor B (bei IBDB=1) bzw. dessen Ableitung DBO 
nach den Zeitparametern BPAR (bei IBDB=2 ) der nichtgravitativen 
Kräfte (siehe SUBR.NGF,NGFO ) . Bei IBDB=1 bzw. 2 entspricht obiger 
Übergabeparameter B dem BPAR bzw. B in SUBR.NGF. Bei ISTIL=1 
exponentieller Zeitverlauf, ansonsten linearer angenommen. 
Bei Bedarf für die einzelnen Terme (IS=1,2,... in SUBR.NGF) unter- 
schiedliche Zeitfaktoren einbauen. Siehe 'Die Sterne' 59(1983) p.l53ff. 
Gl. [14,17a-d] . 

EXTERNAL DEXP 

SAVE 

DATA C /.0D0/ 

IF(IBDB.EQ.2 )GOT02 

IF ( ISTIL . EQ . 1 ) BDB=DEXP ( -TB*B ) 

IF( ISTIL. NE. 1)BDB=1.D0-TB*B+TB*TB*C 

RETURN 
2 CONTINUE 

IF( ISTIL. EQ.1)BDB=-TB*B 

IF ( ISTIL . NE . 1 ) BDB=-TB 

RETURN 

END 

SUBROUTINE EXPL (R,RV,A10,A20,A30) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
Interpoliert die nichtgravitativen Parameter AI und A2 beim Halley 'sehen 
Kometen als Funktion der heliozentrischen Distanz R nach dem Modell 
von H. Rickmann und C.Froeschle ('Com. Expl.' Vol. III p. 120), für 
therm. Trägheit 130,500 oder 1000 (ITH=1,2 oder 3). RV>0 bzw. <0 
nach bzw. vor dem Perihel (IRV=1 bzw 2). 

SAVE 

COMMON/STIL/ISTIL,ITH 

DIMENSION AI (2, 3, 10) ,A2(2,3, 10) 
Modell mit Rotationsdauer von 10 Stunden ( Itherm=130 , 500 , 1000 ) : 

DATA AI / 



ITH=1 






ITF 


= 2 






ITH=3 




r(AE) 


81D0, -8 


81D0, 


-8 


81D0, 


-8 


81D0, 


-8 


81D0, -8 


81D0, 


0.5 


85D0, -8 


85D0, 


-8 


89D0, 


-8 


89D0, 


-8 


93D0, -8 


93D0, 


1.0 


87D0, -8 


87D0, 


-8 


97D0, 


-8 


97D0, 


-9 


08D0, -9 


08D0, 


1.5 


80D0, -8 


80D0, 


-9 


04D0, 


-9 


04D0, 


-9 


28D0, -9 


33D0, 


2.0 


52D0, -8 


52D0, 


-9 


10D0, 


-9 


21D0, 


-9 


48D0, -9 


84D0, 


2.5 


26D0, -8 


26D0, 


-9 


17D0, 


-9 


42D0, 


-9 


65D0,-10 


30D0, 


3.0 


18D0, -8 


18D0, 


-9 


26D0, 


-9 


65D0, 


-9 


78D0,-10 


76D0, 


3.5 


28D0, -8 


28D0, 


-9 


38D0, 


-9 


89D0, 


-9 


95D0,-11 


18D0, 


4.0 



-8.46D0, 


-8 


46D0, 


-9.50DO,-10 


12D0, -10 


12D0,-11 


.65D0, 


4 


5 


-8.65D0, 


-8 


65D0, 


-9.61D0,-10 


36D0, -10 


29D0,-12 


.06D0/ 


5 





DATA A2 / -10.64D0, 


-10 


64D0, - 


10.25D0,-10 


25D0, -10 


00D0,-10 


.00D0, 





5 


-10.21D0, 


-10 


22D0, 


-9.85D0, -9 


86D0, -9 


71D0, -9 


.73D0, 


1 





-9.95D0, 


-9 


92D0, 


-9.70D0, -9 


67D0, -9 


65D0, -9 


.61D0, 


1 


5 


-9.66D0, 


-9 


58D0, 


-9.57D0, -9 


51D0, -9 


70D0, -9 


.67D0, 


2 





-9.28D0, 


-9 


12D0, 


-9.46D0, -9 


51D0, -9 


80D0,-10 


.08D0, 


2 


5 


-8.90D0, 


-8 


73D0, 


-9.45D0, -9 


70D0, -9 


92D0,-10 


.48D0, 


3 





-8.64D0, 


-8 


60D0, 


-9.58D0, -9 


90D0, -10 


07D0,-10 


.90D0, 


3 


5 


-8.55D0, 


-8 


65D0, 


-9.78D0,-10 


10D0, -10 


20D0,-11 


.28D0, 


4 





-8.57D0, 


-8 


78D0, 


-9.99D0,-10 


29D0, -10 


38D0,-11 


.65D0, 


4 


5 


-8.75D0, 


-9 


03D0, - 


10.20D0,-10 


50D0, -10 


56D0,-12 


.10D0/ 


5 





odell mit Rotationsc 


aller von 5C 


Stunden (Itherm=130, 


L000) : 








ITH=1 




ITH=2 


Delsemme 






DATA AI / -8.819D0, 


-8 


819D0, 


-8.834D0, 


-8.834D0, 


-8. DO, 


-8. DO, 




5 


-8.837D0, 


-8 


836D0, 


-8.892D0, 


-8.893D0, 


-8. DO, 


-8. DO, 


1 





-8.844D0, 


-8 


845D0, 


-8.988D0, 


-8.995D0, 


-8. DO, 


-8. DO, 


1 


5 


-8.730D0, 


-8 


740D0, 


-9.090D0, 


-9.142D0, 


-8. DO, 


-8. DO, 


2 





-8.418D0, 


-8 


433D0, 


-9.216D0, 


-9.417D0, 


-8. DO, 


-8. DO, 


2 


5 


-7.991D0, 


-7 


993D0, 


-9.328D0, 


-9.918D0, 


-8. DO, 


-8. DO, 


3 





-7.541D0, 


-7 


510D0, 


-9.405D0, 


-10.597D0, 


-8. DO, 


-8. DO, 


3 


5 


-7.155D0, 


-7 


201D0, 


-9.424D0, 


-11.154D0, 


-8. DO, 


-8. DO, 


4 





-7.236D0, 


-7 


478D0, 


-9.249D0, 


-11.262D0, 


-8. DO, 


-8. DO, 


4 


5 


-7.267D0, 


-7 


583D0, 


-9.075D0, 


-11.579D0, 


-8. DO, 


-8. DO/ 


5 





DATA A2/ -10.955D0, 


-10 


955D0, 


-10.330D0, 


-10.330D0, 


-8. DO, 


-8. DO, 




5 


-10.484D0, 


-10 


509D0, 


-9.885D0, 


-9.912D0, 


-8. DO, 


-8. DO, 


1 





-10.200D0, 


-10 


171D0, 


-9.723D0, 


-9.698D0, 


-8. DO, 


-8. DO, 


1 


5 


-9.865D0, 


-9 


818D0, 


-9.621D0, 


-9.612D0, 


-8. DO, 


-8. DO, 


2 





-9.368D0, 


-9 


322D0, 


-9.596D0, 


-9.725D0, 


-8. DO, 


-8. DO, 


2 


5 


-8.780D0, 


-8 


728D0, 


-9.636D0, 


-10.156D0, 


-8. DO, 


-8. DO, 


3 





-8.197D0, 


-8 


115D0, 


-9.689D0, 


-10.839D0, 


-8. DO, 


-8. DO, 


3 


5 


-7.709D0, 


-7 


718D0, 


-9.711D0, 


-11.403D0, 


-8. DO, 


-8. DO, 


4 





-7.743D0, 


-7 


951D0, 


-9.484D0, 


-11.447D0, 


-8. DO, 


-8. DO, 


4 


5 


-7.740D0, 


-8 


026D0, 


-9.295D0, 


-11.759D0, 


-8. DO, 


-8. DO/ 


5 






DATA AL,AM,AN,AK,R1 / . 1 1 1262D0 , 2 . 15D0 , 5 . 093D0 , 4 . 6 142D0 , 2 . 808D0/ 

F=AL/(R/R1)**AM/(1.D0+(R/R1)**AN)**AK/1.D8 

IF(RV.GE. .0D0)IRV=1 

IF(RV.LT. . 0D0)IRV=2 

I0=MIN(IDINT(R/0.5D0) ,8) 

RO=R/0.5DO-IO*1.DO 

RO0=R0*(RO-l.D0)/2 .DO 

IF(R0.GT.2 .DO)GOT01 

A10 = 10.DO**(A1(IRV,ITH,IO) + (A1(IRV,ITH,IO + 1)-A1(IRV,ITH,IO) ) *R0 
.+(Al(IRV,ITH,I0+2 )+Al(IRV,ITH,I0)-2.D0*Al(IRV,ITH,I0+l ) )*R00+8.D0) 

A2 = 10.D0**(A2 (IRV,ITH,I0) + (A2(IRV,ITH,I0 + 1)-A2(IRV,ITH,I0) ) *R0 
.+(A2(IRV,ITH,I0+2)+A2(IRV,ITH,I0)-2.D0*A2(IRV,ITH,I0+l ) )*R00+8.D0) 

G0T02 

1 CONTINUE 

A10=10.D0**(A1(IRV,ITH, 10)*(R0-1.D0)-A1(IRV,ITH,9)*(R0-2.D0)+8.D0) 
A2 0=10.D0**(A2 (IRV,ITH, 10)*(R0-1.D0)-A2(IRV,ITH,9)*(R0-2.D0)+8.D0) 

2 CONTINUE 
A10=F*A10 
A20=F*A20 
A30=F 
RETURN 
END 

SUBROUTINE NGF1(NF,I,F) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
Ggf. Berechnung der als konstant anzusehenden (alle Änderungen klein) 
Richtung F einer Kraft, deren Parameter zu bestimmen ist, z.Bsp. 
Korr .d. Erdortes (IF=1), Verbess . einer Planetenmasse (IF=2) oder 
Berechnung einer -abplattung (IF=3). IF=4 : Berechnung von Masse eines 
Planeten (1=1), Masse eines großen Mondes (1=2), und Abplattung des 
Planeten (1=3) mit einem kleinen Mond. 

SAVE 



PARAMETER (LU=16 ,Ll=LU-6 , LN=27 ) 

EXTERNAL DSQRT 

DIMENSION F(3),A(3),B(3) ,XM0(3) ,XM(3) , XN ( 3 ) 

COMMON/STIL/IST,IF,LO(L1)/MASSE/AM(LN) ,NZENTZ/OG/X ( 3 , 22 ) /IO/GD(LU) 

COMMON/RELl/DX(3,LN) , IFVW, IN, CL,ANF /ANZAHL/NNO ,NF0 , DGO , DT 

EQUIVALENCE (X(1,4),XE),(X(2,4),YE),(X(3,4),ZE) 

DATA DL,CE,SE / . 4848 1D-6 , . 9 174D0 , . 3980DO/ 
C DATA L,B,C / 1 , . 12 194D0 , - . 42454D0 , . 897 16D0 , -3 . 246825D- 10/ Sonne 

DATA L,B,C /9, .31727D0,-.68980D0, . 65077D0 , -3 . 958D-13/ Neptun 

IF(IF.NE. 1 )GOT04 
C ### Korrektur der Erdbahn aus Störungen auf erdnahe Objekte, 1=1 bis 2 ### 
C Einheit für Ein- U.Ausgabe sowie ggf. in SUBR.IFEST 1" (DL rad) ! 
C Variation der Erdrektasz. um 1" (Anschluß eines Radarsystemes ) 

X0=XE-YE*DL 

Y0=YE+XE*DL 

Z0=ZE 
C Variation der Erdlänge um 1" 

X0=XE- ( YE*CE+ZE*SE ) *DL 

Y0=YE+XE*CE*DL 

Z0=ZE+YE*SE*DL 

IF(I.NE.2)GOT03 
C Variation der Schiefe der Ekliptik um 1" ... noch einbauen 

3 CONTINUE 

C IF(I.NE. 1JGOT04 

D0=DSQRT( (X(1,NF)-X0)**2+(X(2,NF)-Y0)**2+(X(3,NF)-Z0)**2)**3 
DE=DSQRT( (X(1,NF)-XE)**2+(X(2,NF)-YE)**2+(X(3,NF)-ZE)**2 )**3 
RO=DSQRT(XO*XO+YO*Y0+Z0*Z0)**3 
RE=DSQRT(XE*XE+YE*YE+ZE*ZE)**3 

C Komponenten der bei der Änderung entstehenden Zusatzkraft 
F( 1)=AM(4) * ( (X0-X(1,NF) )/D0-(XE-X(l,NF) ) /DE-XO/RO+XE/RE ) 
F(2)=AM(4) * ( (Y0-X( 1,NF) ) /DO- ( YE-X ( 1 ,NF ) ) /DE-YO/RO+YE/RE ) 
F(3)=AM(4) * ( (Z0-X( 1,NF) )/D0-(ZE-X(l,NF) ) /DE-ZO/RO+ZE/RE ) 
RETURN 

4 CONTINUE 
IF(IF.NE.2)GOT05 

C ### Verbesserung der Masse ( =E ( 7 ) ) des L-ten Körpers, 1=1 ### 

C Reihenfolge der Unbekannten (Index der Planeten) siehe L0 . 

C Einheit für Ein- U.Ausgabe sowie ggf. in SUBR.IFEST l.D-8 Zentralmassen 

L=L0(I) 

XP=X( 1,L) 

YP=X(2,L) 

ZP=X(3,L) 
15 CONTINUE 

U=XP*XP+YP*YP+ZP*ZP 

T=(XP-X(1,NF) )**2+(YP-X(2,NF) ) **2+ ( ZP-X ( 3 ,NF ) )**2 

T=T*DSQRT(T) 

U=U*DSQRT(U) 

F( 1)=( (XP-X(1,NF) )/T-XP/U) /l.D8*AM(NZENTZ) 

F(2)=( (YP-X(2,NF) )/T-YP/U) /l . D8*AM (NZENTZ ) 

F(3)=( (ZP-X (3, NF) )/T-ZP/U) /l.D8*AM( NZENTZ) 

RETURN 

5 CONTINUE 
IF(IF.NE.3 )GOT06 

17 CONTINUE 
C ### Berechnung der dynamischen Abplattung J(=E(7)) des L-ten Körpers, 1=1 ### 
C C=-1.5D-5*RADIUS(L)**2 ( J2 in E-5), B(l,2,3) Einheitsvektor zum Pol von L 

R2=.0D0 

RB=.0D0 

DO30K=l,3 

A(K)=X(K,NF)-X(K,L) 

R2=R2+A(K) *A(K) 

RB=RB+B(K) *A(K) 

30 CONTINUE 
D031K=1,3 

31 F(K) = (A(K) + (2 .D0*B(K)-5.D0*RB/R2*A(K) ) *RB ) *C*AM( L ) /R2 /R2 /DSQRT ( R2 ) 



RETURN 

6 CONTINUE 
IF(IF.NE.4)GOT07 

C ### Berechnung von Masse des Planeten (1=1), Masse eines großen Mondes (1=2) 
C und Abplattung des Planeten NZENTZ (1 = 3) mit einem kleinen Mond NF 
C Wenn Faktor l.D-8 geändert wird, bei Gaußscher Konstante in SUBR.INPUT2 
C und ELEM ebenfalls entsprechend ändern ! ! 

IF(I.NE. 1JG0T018 

XP=X( 1, NZENTZ ) 

YP=X( 2, NZENTZ ) 

ZP=X( 3, NZENTZ ) 

GOTO 15 

18 IF(I.NE.2)GOT019 
ZEIT=ANF+DT*IFVW*IN 

CALL MOND2(ZEIT,XM0( 1) ,XM0(2) , XMO ( 3 ) ) 
D022K=1,3 
C Ort von Planet bzw. Satellit (L=l/2) 
XN ( K ) =X ( K , NZENTZ ) -XMO ( K ) * 1 . D- 8 
XM ( K ) =X ( K , NZENTZ ) +XM0 ( K ) 
22 CONTINUE 

D0M=DSQRT ( XM ( 1 ) * * 2 +XM ( 2 ) * * 2 +XM ( 3 ) * * 2 ) * * 3 
D0N=DSQRT(XN(1)**2+XN(2)**2+XN(3)**2)**3 

D0Z=DSQRT(X(1,NZENTZ)**2+X(2,NZENTZ)**2+X(3,NZENTZ)**2 )**3 
D1M=DSQRT( (X(1,NF)-XM( 1) ) **2+ ( X ( 2 , NF ) -XM( 2 ) )**2 + 

(X(3,NF)-XM(3) )**2)**3 
D1N=DSQRT( (X(1,NF)-XN( 1) ) **2+ ( X ( 2 , NF ) -XN ( 2 ) )**2 + 

(X(3,NF)-XN(3) )**2)**3 
D1Z=DSQRT( (X(1,NF)-X( 1, NZENTZ) ) **2+ ( X ( 2 ,NF ) -X ( 2 , NZENTZ ))**2 

+(X(3,NF)-X(3, NZENTZ) )**2)**3 
D023K=1,3 
F(K)=( ( (XN(K)-X(K,NF) )/DlN - XN(K)/D0N) 

-( (X(K, NZENTZ )-X(K, NF) ) /D1Z - X ( K, NZENTZ ) /DOZ ) 

+( (XM(K)-X(K,NF) j/DlM - XM(K ) /DOM )* 1 . D-8 ) *AM( NZENTZ ) 

2 3 CONTINUE 

RETURN 

19 CONTINUE 
L=NZENTZ 
GOTO 17 

7 CONTINUE 

C ### sekulare Veränderung d.gr .Bahnhalbachse ### 

C Siehe G.Sitarski, Acta Astr. 31(1981) S.473. Als Unbekannte wird 
C verwendet da/dt /2a in E9 Tagen 
D032K=1,3 

3 2 F ( K ) =DX ( K , NF ) *DT*DT*IFVW* 1 . D- 9 

RETURN 
C ### Wegen Konv. in SUBR. ANFANG alles auf ca. l.E-5 bis -8 normieren. ### 

END 

BLOCK DATA BDNGF1 

SAVE 

PARAMETER (LU=16 ,Ll=LU-6 , LDATA=Ll-5 ) 

COMMON/STIL/IST, IF,L0 (LI ) 
C Anzahl/Reihenfolge ggf. korrigieren. 
C * Achtung ! * Falls Planeten von Datei gel. werden, dort. Reihenfolge überp. 

DATA IST,L0 12, 8,7,6,4,3,LDATA*0/ 

END 

SUBROUTINE MOND2 ( T , X, Y, Z ) 

IMPLICIT DOUBLE PRECISION ( A-H , 0-Z ) 
C Monde von Planeten. A,I,K,U gr .Bahnhalbachse [AE], 
C und Argument der Deklination 
C Nachfolgende Werte für Triton, 

SAVE 

REAL SIN,COS,AMOD 

EXTERNAL SIN, COS , AMOD, DMOD 

REAL TE,K,I,U,A,RR 

DATA RR /57 .29578/ 



Neigung, 
(relativ zum Erdäquator) 
Bei Bedarf ändern. 



Knotenlänge 



DATA A /O. 0023683/ 

T1=T-2411368.D0 

TE=Tl/365.25 

K=AMOD( 185. 15+0. 14 8*TE, 360. ) /RR 

I=AMOD( 119.35-0. 165*TE,360. ) /RR 

U=DMOD(234 . 42D0+61.25 74 8D0*T1,360.D0)/RR 

X=A*(COS(U)*COS(K)-SIN(U)*SIN(K)*SIN(I) ) 

Y=A* ( COS ( U ) *SIN ( K ) +SIN ( U ) *COS ( K ) *COS ( I ) ) 

Z=A*SIN(U) *SIN(I) 

RETURN 

END 

SUBROUTINE REL ( IFREL,N1 ,N2 ) 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 
C Programm berücksichtigt die relativistischen Effekte in linearer 
C Näherung (PPN) . 

C IFREL=0: ohne relativist .Effekte, IFREL=1: Standardkoordinaten und 
C Schwarzschildmetrik, IFREL>1 isotrope (in ausr .Näherung auch harmo- 
C nische) Koordinaten: IFREL=3 allgemeine Form, Verwendung nachfolgender 
C Werte für Parameter B=Beta und C=Gamma in der Eddington-Robertson- 
C Reihe (C=(w+1 ) / (w+2 ) bei Brans-Dicke-Theorie ) , IFREL=2 Spezialfall 
C B=C=1 (Schwarzschildmetrik), IFREL=4 vereinfachte Form von 1. 
C Die ein- und ausgegebenen Koordinaten, Geschwindigkeiten und Elemente 
C beziehen sich alle auf die gleiche angegebene Form. Falls nicht die 
C Sonne der Zentralkörper im Ursprung ist, A0=M(1)/CL. 

SAVE 

PARAMETER (LN=27) 

EXTERNAL DSQRT, DADD, DMUL, DDIV 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) /REL1/DX( 3 ,LN ) , IFVW, IT, CL/MASSE/M(LN ) 

COMMON/METRIK/B,C 

DOUBLE PRECISION M 

DATA A0 /9.87062871063D-9/ 

D024I=N1,N2 

HA=.0D0 

R2=.0D0 

V2=.0DO 

D0999K=1,3 

HA=DADD(HA,DMUL(DX(K,I) ,X(K,I) ) ) 

R2=DADD(R2,DMUL(X(K,I) ,X(K,I) ) ) 

V2=DADD(V2,DMUL(DX(K,I) ,DX(K,I) ) ) 
999 CONTINUE 
COP HA=DX( 1,I)*X(1,I)+DX(2,I)*X(2,I)+DX(3, I)*X(3,I) 
COP R2=X( 1,I)*X(1,I)+X(2,I)*X(2,I)+X(3,I)*X(3,I) 

R=DSQRT(R2) 
COP V2=DX ( 1 , I ) *DX ( 1 , 1 ) +DX ( 2 , I ) *DX ( 2 , I ) +DX ( 3 , 1 ) *DX ( 3 , I ) 
COP AM=M(1)+M(I) 

AM=DADD(M( 1) ,M(I) ) 

IF ( IFREL . NE . 1 ) GOT02 
COP A0=AM/CL 

A0=DDIV(AM,CL) 

H1=A0/R-V2/CL+HA*HA/CL/R2*( 1 . D0+1 . DO/ ( 2 . D0-4 . D0*A0 /R) ) 

H2=HA/( l.D0-2.D0*A0/R) 
C H1=A0/R-V2/CL+1.5D0*HA*HA/CL/R2 
C H2=HA 

GOT05 

2 IF(IFREL.NE.2 )GOT03 
H1=2.D0*A0/R-.5D0*V2/CL 
H2=2.D0*HA 

GOT05 

3 IF(IFREL.NE.3)GOT04 
H1=(B+C)*A0/R-.5D0*C*V2/CL 
H2=( l.D0+C)*HA 

GOTO 5 

4 CONTINUE 

C Bei IFREL>3 vereinfachte Schwarzschildlösung 
H1=(-R2*V2+HA*HA)*1.5D0/CL/R/R2 



H2=.0D0 
5 CONTINUE 

D025K=1,3 

DDX(K,I)=DDX(K,I)+(H1*X(K,I)*AM+H2*DX(K,I)*A0)*2.D0/R2/R 
2 5 CONTINUE 
2 4 CONTINUE 

RETURN 

END 

BLOCK DATA BDREL 

SAVE 

DOUBLE PRECISION B,C 

COMMON/METRIK/B,C 

DATA B,C /1.D0, .875D0/ 

END 

SUBROUTINE GESCHW( J0,N1,N2) 
C Interpoliert aus den Örtern für 11 Zeiten die Geschwindigkeiten 
C zwecks Berechnung relativistischer Effekte, nichtgrav. Kräfte, sowie 
C deren Differentialquotienten. 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

PARAMETER (LN=27 ,LI=1 1 , LI 1=LI+1 ) 

COMMON /MATRIX/ Y( 3, LN, LI 1)/REL1/GE( 3, LN) 

DIMENSION B(3,LN,LI) ,A(LI) ,A0(LI) 

SAVE 

IF( J0.NE.0)GOTOl 

D02I=N1,N2 

D03K=1,3 

D04J=1,LI 

A(J)=Y(K,I, J) 

4 CONTINUE 

CALL INT1(LI,A,A0) 

D05J=1,LI 

B(K,I, J)=A0( J) 

5 CONTINUE 
3 CONTINUE 
2 CONTINUE 
1 CONTINUE 

D06I=N1,N2 

D07K=1,3 

D08J=1,LI 

A0( J)=B(K,I, J) 
8 CONTINUE 

CALL INT3(LI,A0, J0*1 .DO ,GE (K, I ) ) 
7 CONTINUE 

6 CONTINUE 
RETURN 
END 

SUBROUTINE GESCH(N1,N2) 
C Genaue Berechnung der Geschwindigkeiten zwecks Ableitung oskulierender 
C Elemente. 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER (LN=27 ,LI=1 1 , LI 1=LI+1 ) 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) , DX ( 3 , LN ) 

COMMON /MATRIX / Y ( 3 , LN , LI 1 ) , DDY ( 3 , LN , LI 1 ) 

COMMON/POLYNO/F(LI) ,G(LI1) 

D024I=N1,N2 

D024K=1,3 

DX(K,I)=Y(K,I,LI1) 

D025L=l,LIl 

DX(K,I)=DX(K,I)+G(L) *DDY ( K , I , L ) 
2 5 CONTINUE 
2 4 CONTINUE 

RETURN 

END 

SUBROUTINE GESCHI (Nl ,N2 ) 



C Berechnung der Geschwindigkeiten in ausreichender Näherung zur 

C Ableitung der relativistischen Effekte und Differentialquotienten der 

C nichtgrav. Parameter (Prediktor). 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER (LN=27 ,LI=1 1 , LI 1=LI+1 , LI2=4 ) 

COMMON /REL 1 /GE ( 3 , LN ) 

COMMON/POLYNO/F(LI) ,G(LI1) , ABERR, H (LI2 ) 

COMMON /MATRIX / Y ( 3 , LN , LI 1 ) , DDY ( 3 , LN , LI 1 ) 

D01I=N1,N2 

D01K=1,3 

GE(K,I)=Y(K,I,LI1) 

D01L=1,LI2 

GE ( K , I ) =GE ( K , I ) +H ( L ) *DDY ( K , I , L ) 

1 CONTINUE 
RETURN 
END 

SUBROUTINE UMKEHR) L , NP 1 , N , NGR , IFREL , IFRELO ) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 
C Unterprogramm zum zeitlichen Umkehren d. Differenzenschemas an dem Zeitpunkt 
C J=5 und Berechnen der Beschleunigungen der umgekehrten oder nicht umgek. 
C (L>0 bzw.=0) Ortsmatrix für alle Zeiten zum Beginn einer Integration. 

SAVE 

PARAMETER (LN=27 ,LI=1 1 , LI 1=LI+1 , LM=LI/2 ,LM1=LM+1 ) 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) 

COMMON /MASSE/M/REL1/DXR( 3 ,LN) , IFVW, IN 

COMMON /MATRIX/ Y( 3, LN, LH) , DDY ( 3 , LN , LH ) 

DOUBLE PRECISION M(LN) 

IF(L.EQ.0)GOTO4 

D01J=1,LM 

D02I=NP1,N 

D03K=1,3 

A=Y(K,I, J) 

Y(K,I, J)=Y(K,I,LI1-J) 

Y(K,I,LIl-J)=A 

3 CONTINUE 

2 CONTINUE 
1 CONTINUE 

C Berechnung der Beschleunigungen 

4 CONTINUE 
D05J=1,LI 
D06I=NP1,N 
D07K=1,3 
X(K,I)=Y(K,I, J) 

7 CONTINUE 
6 CONTINUE 

IF ( NGR . NE . . OR . IFREL . NE . ) CALL GESCHW ( J- 1 , IFRELO , N ) 
IN=J-LM1 
CALL BESCHL 
D08I=NP1,N 
D09K=1,3 

DDY(K,I, J)=DDX(K,I) 
9 CONTINUE 

8 CONTINUE 

5 CONTINUE 
RETURN 
END 

SUBROUTINE INPUT1 ( T , N , DT , DGESCH , IFRECT ) 
IMPLICIT DOUBLE PRECISION (A-H, O-Z) 
C Eingabe der Initialdaten der Planeten. 
SAVE 

PARAMETER (LN=27) 
EXTERNAL DSQRT 

COMMON /MASSE /AM (LN) ,NZENTZ , GK/OG/X ( 3 ,LN ) , DDX ( 3 , LN ) ,DX(3,LN) 
COMMON/BAND1/NP1 



CALL JD2(T*1.D0,T) 

IF(IFRECT.GE.2 )CALL BD8B ( IFRECT , DT ) 

IF(NP1.GT.N)G0T04 

WRITE(6,5)DT,T,DATUM(T) ,DGESCH 
5 FORMAT ( /IX, '<ESC!2 0>' , ' Integrations Schrittweite ' ,F7.2, ' Tage' /, 
.' Anfangswerte für JD',F11.2,' = ■ ,F11.2," : ' ,5X, ■ (dT= ■ , 
.F7.2,' Tage) ' , '<ESC!4>' ,/) 

WRITE(6,8) 
8 FORMAT ( 10X, 'X' ,16X, "Y" ,16X, ' Z' ,14X, 'dX/dT' , 12X, 'dY/dT' , 
. 12X, 'dZ/dT' ,10X, 'M/dT**2 ■ /) 

F=DT/DGESCH 

IF( IFRECT. LT. 2 )AM( 1 ) = ( . 1720209895D0*DT ) **2 

WRITE(6, 12)X(1,1),X(2,1),X(3,1), 

DX(1, 1)/F,DX(2, 1)/F,DX(3, 1) /F,AM(1)/F**2 

IF(NP1.NE.2 )GOT014 

IF ( IFRECT . EQ . ) READ (5,3)GK,(X(1,K),DX(1,K),K=1,3) 

IF ( IFRECT. EQ.O) AM ( 1 ) = ( GK*DT ) **2 

3 FORMAT(G15.10, 6G6.3) 
14 CONTINUE 

D01I=NP1,N 

IF(IFRECT.EQ.1)CALL ININV(X( 1,I),X(2,I),X(3,I), 

DX ( 1 , I ) , DX ( 2 , I ) , DX ( 3 , I ) , AM ( I ) , F ) 
IF (IFRECT. EQ.O. AND. I. NE. 1 ) CALL ININV0(0,X( 1,I),X(2,I),X(3,I), 

DX( 1,1) ,DX(2,I) ,DX(3,I) ,T,AM(I) ,AM( 1) ,DT,ID1,GR) 
WRITE(6, 12)X(1,I),X(2,I),X(3,I), 

DX( 1,1) /F,DX(2,I)/F,DX(3,I)/F,AM(I)/F**2 
12 FORMAT ( 1X,6F17.13,1X,G17.12,1X) 

1 CONTINUE 

4 IF ( IFRECT . NE . . OR . NP 1 . NE . 2 ) GK=DSQRT ( AM ( 1 ) /DT/DT ) 
WRITE(6,2) 

2 FORMAT ( / ) 
CALL ZENTR 
RETURN 
END 

SUBROUTINE INPUT2 ( T , NF , DT , DGESCH , NGR ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Einlesen des Zusatzkörpers (evtl . zusätzl .Kräfte, Elemente) 
C NZENTZ Nr. des Zentralkörpers (b. Monden), IFMT ob Ausgabe der 
C Elemente formatiert oder nicht, IEPC ob am Integrationsende stanzen 
C ISTILO: Bei ISTIL=0 bzw. =4 Art der Zusatzkraft bzw. Modell in SUBR.EXPL 

SAVE 

PARAMETER ( LN=2 7 , LU= 1 6 , LU6=LU- 6 , LS=3 , LLIM=LS- 1 ) 

CHARACTER* 1 ITM, ITN, ITZ , ITF, ITK, ITC , ITST, IM 
CUNI CHARACTER* 4 ITEXT 

CHARACTER*80 ITEXT 
CUNI DIMENSION ITEXT (20) 

COMMON/ZUSK/TZ , IEPHE , IOBS , IANFG , IENDE , IBVO , NGRO , GR 

COMMON/EQUIN/EQ,IRES,IUT/BAHN/E(LU) 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) , DX ( 3 , LN ) /MASSE/AM ( LN ) , NZENTZ, GK 

COMMON/STIL/ISTIL, ISTILO, L0(LU6) /REL1/DXR( 3 ,LN ) , IFVW 

COMMON / 10 /GD ( LU ) , IFMT , IEPC /BAND 1 /NP 1 /BAND/NP , ANFP , DTP 

COMMON/LIM/NLIM,RLIM(LLIM) , El , E2 , E3 ,R1 ,R11 , CR( 3 ) , ALPHA) 3) 

DATA ITM, ITN, ITZ, ITF, ITK, ITC, ITST / ' M ■ , ' N ■ , ' Z ' , ' F ' , ' K ' , ' C ' , ' * ' / 

DATA INGR /0/ 
C Eingabe der Steuergrößen, nichtgrav. Kräfte, etc 

5 READ ( 5, 1) ITEXT 
1 FORMAT ( A8 ) 

CUNI1 FORMAT ( 2 0A4 ) 

C READ (ITEXT, 7 ) IM $ATA# 

C IF(IM.EQ. ' ■ )TZ=.0D0 
C IF(IM.EQ. ' ' )G0T06 

C IF(IM.NE. ' 1 ' )GOT04 $ATA# 

CUNI DECODE (80,2, ITEXT , ERR=4 ) TZ , IBVO , IEPHE , IUT , NGR, IRES , IFRECT , 
READ ( ITEXT , 2 , ERR=4 ) TZ , IBVO , IEPHE , IUT , NGR , IRES , IFRECT , 
TANFG,TENDE, (E( J) , J=7,NGR+6) 



2 FORMAT (Dl 4 .8,2I2,4I1,2D13.3,(4D8.2)) 
IF(NGR.GT.4 ) READ (5, 3) (E( J) , J=ll,NGR+6) 

3 FORMAT( 10D8.2 ) 
GOT06 

CUN 4 DECODE ( 1,7, ITEXT , ERR=8 JIM 

4 READ(ITEXT,7,ERR=8)IM 
7 FORMAT (AI) 

C optionsweise Eingabe von Masse ( IM=1HM) ,NZENTZ ( .=1HZ ) , Stil ( .=1HK) . Falls 
C NAMELIST-Eingabe der Elemente bzw. nichtgr .Parameter , IM=1HF bzw. =1HN. 
C Erstes Eingabezeichen C oder * bedeutet Kommentar, wird direkt ausgedruckt. 
C Bei ISTIL.NE.O und Aufteilung der Bahn, Eingabe der Grenzen RLIM, 
C bei ISTIL=3 davor außerdem die Parameter d.Kräf teverlauf s ( S . SUBR.NGFO ) . 
C Bei ISTIL=0 und ISTIL0=2 nach IM Reihenfolge LO der Planeten eingeben 
C deren Masse zu berechnen ist ( s .SUBR.NGF1 ) . Warnung: Falls Planeten von 
C Datei lesen, deren Reihenf. genau überpr.! Hinter IM=1HF eine Zahl stellen, 
C falls nach Integrationsende Ausgabe im Eingabeformat (Kanal 9) zur Fort- 
C Setzung der Integration erfolgen soll. Masse in rezipr . Sonnenm. eingeben. 
IF(IM.NE.ITC.AND.IM.NE.ITST)GOTO4 
WRITE(6,39 ) ITEXT 
39 FORMAT ( IX, '<ESC!16>' ,A80, '<ESC!4>' ) 

G0T05 
4 IF(IM.NE.ITM)GOT04 2 

READ ( ITEXT , 4 1 , ERR=8 ) A0 
CUNI DECODE (20 ,41, ITEXT, ERR=8)A00 
41 FORMAT( 1X,F20. 1) 
AM(NF)=AM( 1)/A00 
GOT05 
4 2 IF(IM.NE.ITK)GOT04 4 

READ ( ITEXT , 43 , ERR=8 ) ISTIL, ISTILO 
CUNI DECODE (36,43, ITEXT, ERR=8 ) ISTIL , ISTILO 
43 FORMAT( IX, 212) 

IF ( ISTIL. EQ.O. AND. ISTILO. EQ. 2) READ (ITEXT, 45, ERR=8)L0 
CUNI IF( ISTIL. EQ.O. AND. ISTILO. EQ. 2) DECODE (32, 45, ITEXT, ERR=8 )L0 
45 FORMAT) 7X, 1612 ) 

IF( ISTIL. EQ.0)GOTO44 

IF ( ISTIL . NE . 2 ) READ ( ITEXT ,46, ERR=8 ) El , E2 , E3 , Rl 1 , Rl , RLIM 
CUNI IF ( ISTIL . NE . 2 ) DECODE (77,46, ITEXT , ERR=8 ) E 1 , E2 , E3 , Rl 1 , Rl , RLIM 

IF(ISTIL.EQ.2 (READ (ITEXT, 14 6,ERR=8 )RLIM 
CUNI IF(ISTIL.EQ.2 ) DECODE (37, 14 6 , ITEXT , ERR=8 ) RLIM 
4 6 FORMAT (5X,9F8. 2) 
146 FORMAT(4 5X,4F8.2) 
NLIM=0 

D047I=1,LLIM 
4 7 IF(DABS(RLIM(I) ) .GT. l.D-2)NLIM=I 
4 4 CONTINUE 

IF(IM.EQ.ITZ .OR.IM.EQ.ITF)READ(ITEXT,4 3,ERR=8)N0 
CUNI IF(IM.EQ.ITZ.OR.IM.EQ.ITF)DECODE(2,43, ITEXT, ERR=8 ) NO 
IF(IM.EQ.ITZ )NZENTZ=N0 
IF ( IM . EQ . ITF ) IFMT=0 
IF(IM.EQ.ITF.AND.N0.NE.0)IEPC=1 
IF ( IM . EQ . ITN ) INGR= 1 
GOTO 5 
6 CONTINUE 

WRITE (6,9) 
9 FORMAT (////) 

IF(TZ.EQ. .0D0.OR.DT.GT. .0D0)GOTO14 
WRITE(6, 18 ) 
18 FORMAT(' Negative Schrittweite eingegeben. Programm hält.'/) 

STOP 
14 DT=DABS(DT) 

IF(TZ.EQ..0D0) RETURN 
C Falls eine zu große Anzahl nichtgrav. Parameter angegeben wurde: 
C IF(NGR.GT.LU-IBZ-6)NGR=LU-IBZ-6 

C Umrechnung der nichtgrav. Parameter auf DT als interne Zeiteinheit 
C (rel. Masse zur Sonne bleibt, nichtgr .Param. Beta *DT, sonstiges *DT**2) 



CALL JD2 (TZ*1.D0,TZ) 

CALL JD2 (TANFG*1.D0,TANFG) 

CALL JD2 (TENDE*1.D0,TENDE) 

IF(NP1.EQ.NF)T=TZ 

IF(DABS( (TZ-T)/DT-NINT( (TZ-T)/DT) ) .LT. l.D-5)GOT015 

WRITE(6,35) 
35 FORMAT(' Die eingegebene Epoche des Zusatzkörpers paßt 1 /, 

.' nicht zu Startepoche und Integrationsintervall der großen'/, 
.' Planeten. Programm wird abgebrochen.'/) 

STOP 

15 CONTINUE 
IF(NP1.NE.NF)G0T032 

IF(DABS( (ANFP-T)/DTP-NINT( ( ANFP-T ) /DTP ) ) . LT . l.D-5)GOT032 
WRITE(6,31 ) 

31 FORMAT(' Die eingegebene Epoche des Zusatzkörpers paßt'/, 

.' nicht zu den Stützstellen der Datei mit den Koordinaten'/, 
.' der großen Planeten. Programm wird abgebrochen.'/) 
STOP 

32 CONTINUE 

IANFG= ( TANFG-TZ ) /DT 

IENDE= ( TENDE-TZ ) /DT 

IF ( IANFG . GE . IENDE ) IEPHE=0 

F=DT/DGESCH 
C Einlesen der Initialwerte 

IF(IFRECT.EQ.1)CALL ININV(X( 1 , NF ) , X( 2 ,NF ) , X ( 3 ,NF ) , 
DX ( 1 , NF ) , DX ( 2 , NF ) , DX ( 3 , NF ) , AM ( NF ) , F ) 

AMO=AM(NZENTZ ) 

IF(NZENTZ.NE. 1 . AND . ISTIL . EQ . . AND . ISTILO . EQ . 4 . AND . NGF . NE . ) 
. AMO=AMO*(l.D0+(E(7)+E(8) )*l.D-8) 

IF(IFRECT.EQ.O)CALL ININVO ( 2-IFMT , X ( 1 , NF ) , X ( 2 ,NF ) , X ( 3 , NF ) , 
DX( 1,NF) ,DX(2,NF) ,DX(3,NF) , TZ, AM (NF) , AMO , DT, IBVO , GR) 

GK=DSQRT( (AM0+AM(NF) ) /DT/DT) 
C Eingabe der nichtgrav. Kräfte entweder per Liste oder standardmäßig 

IF ( NGR . EQ . . AND . INGR . EQ . ) GOTO 1 7 

IF ( ISTIL . EQ . ) GOT03 

CALL INNGF(NGR,INGR,DT) 

GOTO 17 
3 CONTINUE 
C Planetenmassen, Abplattung o.a. auf Zentralmasse bezogen, 
C bzw. absolute Kräfte ohne dieser als bereits enthaltenem Faktor 

IF ( INGR . NE . ) GOT06 2 

D016J=1,NGR 

IF( ISTILO. GE. 2 )GD(6+J)=1.D0 

IF( ISTILO. LT. 2 )GD(6+J)=1. DO /DT/DT 

16 E(6+J)=E(6+J)/GD(6+J) 

17 CONTINUE 

C Parameter CR, ALPHA des Kräfteverlaufes Stil 1 als weitere Unbekannte 

IF( ISTIL. NE. l)GOT061 

CR( 1)=E1 

CR(2)=E3 

ALPHA ( 1)=E2 

ALPHA(2)=R11 

GOT025 
61 CONTINUE 
C Parameter E1,E2,E3,R11 des Kräfteverlaufes Stil 2 als weitere Unbekannte 

IF ( NGR . EQ . . OR . ( ISTIL . NE . 5 . AND .ISTIL. NE. 6)) GOT02 5 

D012I=1,4 
12 GD(6+NGR+I)=1.D0 

E(NGR+7)=E1 

E(NGR+8)=E2 

E(NGR+9)=E3 

E(NGR+10)=R11 

NGR=NGR+4 
2 5 CONTINUE 

IF(TZ-T.GT.-l.D-5)GOT019 



TZ liegt vor der Eingabeepoche T der Planeten 

NF0=NF-1 

D011I=NP1,NFO 

D011K=1,3 

DX(K,I)=-DX(K,I) 
11 CONTINUE 

IFVW=-1 
19 CONTINUE 

WRITE(6,59) 
59 FORMAT(/) 

IF(AM(NF) /AM(NZENTZ) . GT . 1 . D-ll ) WRITE ( 6 , 2 1 ) AM (NF ) /AM( NZENTZ ) 

21 FORMAT (' Masse des Zusatzkörpers ' ,D12 . 6 , ' der seines Zentral', 

1 körpers ' / ) 
IF(NGR.GE. l.AND.ISTIL.EQ.0)WRITE(6,22)ISTIL0 

22 FORMAT(' Beim Zusatzkörper werden in den Bewegungsgleichungen', 

' zusätzl. Kräfte (Art=',Il,') berücksichtigt.'/) 
IF(NGR.GE. l.AND.ISTIL.EQ.0.AND.ISTIL0.EQ.2)WRITE(6,55) (L0(I) , 
1=1, NGR) 

55 FORMAT(' Berechnung der Planetenmassen i .d. Reihenfolge :', 413/ ) 
IF(NGR.GE. l.AND.ISTIL.NE.0)WRITE(6,23)ISTIL 

23 FORMAT(' Beim Zusatzkörper werden in den Bewegungsgleichungen', 

' nichtgrav. Kräfte Stil ',11,' berücksichtigt.'/) 
IF(NGR.GE. 1. AND. ISTIL. EQ. 4) WRITE (6, 2 4 (ISTILO 

24 FORMAT ( ' (Modell-Nr. ' ,12, ' für den Kräfteverlauf)'/) 
IF(NGR.GE. 1. AND. ISTIL. NE. 0. AND. NLIM. NE. 0) WRITE (6, 56) 

(RLIM(I) ,1=1, NLIM) 

56 FORMAT ( ' Aufteilung der Bahn (r in AE, - = vor Perihel ) ', 

5X,8F7.2,/) 
IF(NGR.GE. LAND. ( ISTIL . EQ . 3 . OR. ISTIL .EQ . 5 ) ) WRITE ( 6 , 57 )R1 , RH , 
E1,E2,E3 

57 FORMAT ( ' R1:',F7.2,' R11:',F7.2,' E1:',F7.2, 

E2 : ' ,F7 .2, ' E3: ' ,F7.2) 
IF(NGR.GE. LAND. ( ISTIL. EQ. 1. OR. ISTIL .EQ . 6 ) ) WRITE (6, 54) 
E1,E2,E3,R11 
54 FORMAT ( ' C/Alpha für Kräfteverlauf radial: ',2F7.2, 
' , transversal: *,2F7.2) 
IF ( NGR . GE . 1 .AND . ISTIL . EQ . 5 ) WRITE (6,58) 

58 FORMAT(' Diese Parameter sind ebenfalls zu verbess. Unbekannte'/) 
WRITE (6, 59 ) 

IF( ( ISTIL. EQ.O.OR. ISTIL. EQ. 4) .AND . ISTILO . EQ . ) GOT08 
RETURN 
8 WRITE (6, 13) 
13 FORMAT(/' Fehler bei der Eingabe des Zusatzkörpers.'/, 
' Programm hält.'/) 
STOP 

62 WRITE(6,63) 

63 FORMAT(/' Bei ISTIL=0 zusätzliche Parameter nur formatiert', 

' eingebbar. Programm hält.'/) 
STOP 
END 

BLOCK DATA BDINP 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
PARAMETER (LN=27 ,LU=16 , LU6=LU-6 ,LS=3 , LLIM=LS-1 ) 
COMMON/MASSE/AM (LN) , NZENTZ /IO/GD ( LU ) ,IFMT,IEPC 
COMMON/LIM/NLIM,RLIM(LLIM) , El , E2 , E3 ,R1 ,R1 1 , CR( 3 ) ,ALPHA(3) 
DATA NZENTZ, IFMT,IEPC /1,1,0/ 
DATA GD /3*1.DO,3*57.29577951308230793DO, 

LU6*2 062 64.8 624 7 09 6 3 54 5DO/ 
DATA NLIM,RLIM,E1,E2,E3,R1,R11 /0 , LLIM* . 0D0 , -2 . 15D0 , 5 . 093D0 , 
. -4.6142D0,2.808D0,2.808D0/ 
DATA CR, ALPHA /3*2 . 0D0 , 3*3 . 0D0/ 
END 

SUBROUTINE INNGF (NGR, INGR, DT ) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
Eingabe der nichtgravitativen Parameter, falls nicht standardgemäß (auf 



C der Karte vor den Elementen, nach Anfg. u.Ende d. Ephemer ide ) erfolgt. 

C Am besten mit NAMELIST, wo nicht möglich je Unbekannte eine Karte mit Name 

C (A o.B) und Indizes (je 1 Ziffer) sowie Wert, n. letzter Unb. ein $ o.Leerk. 

PARAMETER ( LU=16 ,LS=3 , LDATA=6*LS , LU6=LU-6 ) 

CHARACTER*4 ITEXT(LU6) 

CHARACTER*1 IT,IT1,IT2 C77 

DIMENSION A(3,LS) ,B(3,LS) 

C0MM0N/NG1/APAR(3,LS) ,BPAR(3,LS) , IPAR( 3 ,LS , 2 ) ,IRTVM,ISM 

COMMON/IO/GD(LU)/BAHN/E(LU) /LIM/NLIM 
CUNI NAMELIST/PARAM/A,B 
C EQUIVALENCE (IUNB,NGR) 

DATA A,B /LDATA*1.01D30/ 

DATA IT1,IT2 /'A'j'B'/ C77 

DATA ITEXT /LU6*' '/ C77 

IF ( INGR . NE . ) GOTOl 1 
C Reihenfolge der Standardeingabe, bei Bedarf ändern. 

A(1,1)=E(7) 

IF(NGR.GE.2 )A(2, 1)=E(8) 

IF(NGR.GE.3)B(2, 1)=E(9) 

IF(NGR.GE.4)A(3,1)=E( 10) 

GOTO 12 
C Eingabe per Liste beliebiger Kombinationen von Parametern 
CUN11 READ(5,PARAM,ERR=17) 

11 CONTINUE C7 7 
READ(5, 14,ERR=17)IT,IRTV,IS,WERT C7 7 

14 FORMAT(A1,2I1,F20. 10) C77 

IF( IT. NE. IT1.AND.IT. NE. IT2JGOT012 C7 7 

IF(IRTV.GT.3.0R.IS.GT.NLIM+l)GOT015 

IF(IT.EQ.IT1)A(IRTV,IS)=WERT C77 

IF(IT.EQ.IT2 )B(IRTV,IS)=WERT C77 

GOTOll C77 

12 CONTINUE 
IUNB=6 
D01IS=1,LS 
D03IRTV=1,3 
D02IAB=1,2 

2 IPAR(IRTV,IS,IAB)=0 
IF(A(IRTV,IS) .GT.l.D3 0)GOTO3 
IRTVM=MAX(IRTV,IRTVM) 
ISM=MAX(IS,ISM) 
IUNB=IUNB+1 

GD(IUNB)=1 .DO /DT/DT 
E ( IUNB ) =A( IRTV, IS ) /GD ( IUNB ) 
IPAR(IRTV,IS,1)=1 
CUNI ENCODE(4,6,ITEXT(IUNB-6) ) IRTV, IS 
WRITE( ITEXT (IUNB-6) ,6)IRTV,IS 

6 FORMAT( ' A' ,211) 
IF(B(IRTV,IS) .GT.l.D30)GOTO3 
IUNB=IUNB+1 

GD(IUNB)=1 .DO 
E ( IUNB )=B( IRTV, IS) 
IPAR(IRTV,IS,2 )=1 
CUNI ENCODE( 4, 7, ITEXT (IUNB-6) (IRTV, IS 
WRITE( ITEXT (IUNB-6) ,7)IRTV,IS 

7 FORMAT ( ' B ' , 2 1 1 ) 

3 CONTINUE 
1 CONTINUE 

IF( IUNB. GT.LU) GOTOl 6 

NGR=IUNB-6 

WRITE(6,8)ITEXT 

8 FORMAT( /, IX, '<ESC!20>' , 'Nichtgravitative Parameter: ■ ,'<ESC!4>', 

(10A4),/) 
C Zuweisung der Unbekannten auf die APAR,BPAR 
CALL NGFUNB 
RETURN 



15 WRITE(6,21 )IT,IRTV,IS,IRTV,LS,IS 

21 FORMAT(/' Nichtgravitativer Parameter falsch: ' , AI , 211 , / , 

1 Index radial/toroidal/normal (max. 3): ',13,/, 
1 Index Bahnteil (max. ',12,'): ',13,/) 
IF ( IS . GT . LS ) WRITE ( 6 , 22 ) LS 

22 FORMAT(/' Erlaubt sind nur PARAMETER LS=',I2,' Bahnstücke .',/ , 

1 Falls kein Eingabefehler, im Programm ändern.',/) 
GOTO 10 

16 WRITE (6, 2 3 )IUNB,LU 

23 FORMAT(/' Eingegeben wurden ',12,', aber erlaubt sind nur', 

' PARAMETER LU=',I2,' Unbekannte.',/, 

' Falls kein Eingabefehler, im Programm ändern.',/) 
GOTO 10 

17 WRITE(6,24)IT,IRTV,IS 

2 4 FORMAT(/' Eingabe für Parameter falsch: ',A1,2I1,/) 
10 WRITE (6, 25) 

25 FORMAT(/' Falsch eingegebene oder zuviele nichtgrav. Parameter.', 
' Programm hält.'/) 

CALL STOP 

END 

SUBROUTINE NGFUNB 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Weist die zu berechnenden nichtgravitativen Parameter als Unbekannte 
C in durchlaufender Reihenfolge, ihren indizierten Bezeichnungen zu. 
C Reihenfolge All ,B11 , A21 ,B21 , A31 ,B31 , A12 ... (s.SUBR.NGF) 

SAVE 

PARAMETER (LU=16,LS=3) 

COMMON/NG1 /APAR( 3 , LS ) , BPAR ( 3 , LS ) , IPAR ( 3 , LS , 2 ) , IRTVM , ISM/BAHN/E ( LU ) 

IUNB=6 

D01IS=1,ISM 

D01IRTV=1, IRTVM 

D01IAB=1,2 

IF(IPAR(IRTV,IS,IAB) .EQ.0)GOTOl 

IUNB=IUNB+1 

IF(IAB.EQ. 1)APAR(IRTV,IS)=E(IUNB) 

IF ( IAB . EQ . 2 ) BPAR ( IRTV, IS ) =E ( IUNB ) 
1 CONTINUE 

RETURN 

END 

SUBROUTINE ININV (X,Y,Z,DX,DY,DZ,AM,F) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Einlesen rechtwinkliger Initialwerte incl. Masse. F=DT/DGESCH 
C Umrechnunsfaktor d. Eingabe- in internen Geschwindigkeiten 

SAVE 

CHARACTER*4 IT1,IT2,IT3 

READ(5, 1)X,Y,Z,AM,IT1,IT2,IT3,DX,DY,DZ 
1 FORMAT(3D16.10,D2 0. 10,3A4/3D16. 10) 

DX=DX*F 

DY=DY*F 

DZ=DZ*F 

AM=AM*F*F 

RETURN 

END 

SUBROUTINE ININVO ( IFMT , X , Y , Z , DX , DY , DZ , TZ , AM, AMZ , DT , IBVO , GROESE ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Eingabe der Initialwerte durch oskulierende elliptische Elemente und 
C Umrechnung in rechtwinklige. AM reziproke Masse ggnü. jew. Zentrk. 
C Normalerweise sollten Epoche d.Oskulation und von AMO (TZ, EPOCHE) übereinst 
C *** Falls man FK4-Initialwerte d.gr . Planeten hat und unmittelbar 
C a.d. FK5-System beziehen will, einfach IFK4B=1 setzen ! *** 
C IFMT=1 oder 2 falls Elemente formatiert oder mit NAMELIST eingeg. werden 

SAVE 

PARAMETER (LU=16) 

CHARACTER*1 IT,IT0,IFK4B 

COMMON/EQUIN/EQ,IRES,IUT,IEXZ/BAHN/E(LU) ,NRBV, STAO , IBAHN 



CUNI NAMELIST/ELDBL/EPOCHE,AMO,HALBA,EXZ, OMEGA, ASCD,OBL 
DATA RR /57.295779513082320793D0/ 

DATA IT,IT0,IFK4B /' ','0','0'/ 

IF(IFMT.EQ.l) 

. READ (5,45) EPOCHE , AMO , HALBA , EXZ , OMEGA , ASCD , OBL , GROESE , IFK4B , AM 

IF ( IFMT . EQ . ) READ (5,46) EPOCHE , AMO , HALBA , EXZ , AM , OMEGA , ASCD , OBL 
4 6 FORMAT(D11.2,D18.13,D19.15,D18.15,D12.3,/12X,3D18.13) 
CUNI IF(IFMT.EQ.2 (READ ( 5 , ELDBL ) 

IF ( IFMT . EQ . 2 ) READ ( 5 , * ) EPOCHE , AMO , HALBA, EXZ , OMEGA, ASCD , OBL 
4 5 FORMAT (Dl 3 . 5 , D9 . 5 , D10 . 7 , D9 . 7 , 3D9 . 5 , D4 . 2 , AI , D7 . ) 
C WRITE ( 6 , 4 4 ) EPOCHE , AMO , HALBA , EXZ , OMEGA , ASCD , OBL , GROESE , IFK4 B , AM 
C 44 FORMAT( IX , 8G15 . 6 , /IX, AI , G15 . 6 ) 

IFK40=0 

IF(IFK4B.NE.IT.AND.IFK4B.NE.IT0)IFK4 0=1 

IF(AM.GT. 1 .D-5)AM=AMZ/AM 

AM0=AMZ+AM 

IF( OMEGA. NE. 0)GOTOl 

NRBV=-1 

IF ( EXZ . EQ . ) IBAHN=2 

IF(EXZ.NE.0.OR. ( EXZ. EQ.O. AND. HALBA. NE. 0) )IBAHN=0 

IF ( IBVO . EQ . ) IBV0= 1 

E ( 2 ) =HALBA 

RETURN 
1 CONTINUE 

IF(AMO.EQ.0)IEXZ=l 

CALL JD2 (EPOCHE*l. DO, EPOCHE) 

AMO=AMO/RR 

OMEGA=OMEGA/RR 

ASCD=ASCD/RR 

OBL=OBL/RR 

IF ( IEXZ . EQ . 1 ) AMO=TZ-EPOCHE 

CALL AEQKST ( OMEGA, ASCD , OBL , EQ , PX , PY , PZ , QX , QY , QZ , IFK4 ) 
C Nötige Korr .d.gr. Halbachse da=-l . 213D-9*a**2 . 5*cos ( i zum Aeq.) 
C (wegen Rotation FK4 ggnü.FK5), ausreichende Näherung da=-l . 13D-9*a**2 . 5 . 

IF(IFK4 0.EQ. 1 .AND. IEXZ. NE. 1 ) HALBA= HALBA- 1 . 13D-9*HALBA* *2 .5D0 

CALL INVAL ( IEXZ , DSQRT ( AMO / DT /DT ) , DT , EPOCHE , AMO , HALBA , EXZ , 
.PX,PY,PZ,QX,QY,QZ,TZ,X,Y,Z,DX,DY,DZ) 

RETURN 

END 

SUBROUTINE OUTP ( IFR, IRO ) 

SAVE 

DOUBLE PRECISION BETA, GAMMA 

COMMON/METRIK/BETA, GAMMA 

IF(IR0.NE.2 )WRITE(6,9) 

IF(IR0.EQ.2 )WRITE(6, 10) 
9 FORMAT(/' Beim zu berechnenden Körper werden relativist .Effekte ' ) 

10 FORMAT(/' Bei allen Körpern werden relativistische Effekte') 
IF ( IFR . EQ . 1 . OR . IFR . EQ . 2 ) WRITE (6,11) 
IF(IFR.EQ.3)WRITE(6,13) 

IF(IFR.GT.3)WRITE(6, 14) 

11 FORMAT(' nach der Metrik von Schwarzschild berücksichtigt') 

13 FORMAT(' nach der Metrik von Brans und Dicke berücksichtigt') 

14 FORMAT(' genähert n.d. Metrik von Schwarzschild berücks . ' ) 
IF(IFR.EQ. 1.0R.IFR.EQ.4)WRITE(6, 16 ) 

IF ( IFR . EQ . 3 ) OMEGA= ( 1 . DO-2 . DO *GAMMA ) / ( GAMMA- 1 . DO ) 
IF ( IFR . EQ . 3 ) WRITE ( 6 , 1 7 ) BETA , GAMMA , OMEGA 
IF(IFR.EQ.2 .OR.IFR.EQ.3)WRITE(6, 18 ) 

16 FORMAT ( ' (Ein- und Ausgabe in Standardkoordinaten)'/) 
18 FORMAT (' (Ein- und Ausgabe in isotropen Koordinaten)'/) 

17 FORMAT ( ' Beta=' ,F6.3, ' Gamma= ' , F6 . 3 , ' Omega= ' ,F6 . 3 ) 
RETURN 

END 

SUBROUTINE INDIFF (N,NGR) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 



PARAMETER (LN=27) 

COMMON/OG/X ( 3 , LN ) , DDX ( 3 , LN ) , DX ( 3 , LN ) /MASSE/M ( LN ) 

COMMON /ANZAHL /NO , NF , DG , DT , IFBVO 

DOUBLE PRECISION M 
C Setzt die zu integrierenden Werte zur Berechnung der Koeffizienten der 
C Gleichungen zur Bahnverbesserung anfangs gleich bzw. 1. 
C Siehe 'Die Sterne' 59 Heft 4 Seite 157 Mitte. 

IF ( IFBVO . EQ . ) RETURN 

IF ( N+6+NGR . LE . LN ) GOT03 

WRITE(6,4) 

4 FORMAT(/' Anz.der zu integr .Ob jekte zu groß. Programm stoppt.'/) 
CALL STOP 

3 CONTINUE 
NN=6+NGR 
D01K=1,3 
D02I=1,NN 
X(K,I+N)=0.D0 
DX(K,I+N)=.0D0 
M(I+N)=.0D0 

2 CONTINUE 
X(K,K+N)=1.D0 
DX(K,K+N+3)=1.D0 

1 CONTINUE 

RETURN 

END 

SUBROUTINE ZENTR 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 
C Bezieht alle Körper auf den ersten, falls für diesen nicht eingeg. wurde. 

SAVE 

PARAMETER (LN=27) 

COMMON/OG/X ( 3,22), DDX (3, 22), DX (3, 22) /ANZAHL/NO , N 

D01J=1,N 

I=N+1-J 

D01K=1,3 

DX(K,I)=DX(K,I)-DX(K,1) 
1 X(K,I)=X(K,I)-X(K,1) 

RETURN 

END 

SUBROUTINE DIFF (Nl ,N2 ,M) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 

SAVE 

PARAMETER (LN=2 7 ,LI=1 1 , LI 1=LI+1 , LI0=LI-1 ) 

COMMON /MATRIX / Y ( 3 , LN , LI 1 ) , DDY ( 3 , LN , LI 1 ) 
C Bildung des Differenzenschemas aus den Anfangsbeschleunigungen. 

DIMENSION H(LI) 

CALL ANFDIF(N1,N2,M) 

D01I=N1,N2 

D01K=1,3 

D03J=1,LI 

H( J)=DDY(K,I, J) 

3 CONTINUE 
DO4L=l,LI0 
DDY(K,I,L)=H(LI) 
L0=LI-L 
DO5J=l,L0 
H(LI1-J)=H(LI1-J)-H(LI-J) 

5 CONTINUE 

4 CONTINUE 
DDY(K,I,LI)=H(LI) 

1 CONTINUE 
RETURN 
END 

SUBROUTINE ANFDIF(N1 ,N2 ,M) 
IMPLICIT DOUBLE PRECISION (A-H, O-Z) 
C Berechnung der Differenz Y(K,I,LI1) des letzten vom vorletzten Ort 



C bei Beginn oder Umkehr der Integration. L=-l Beginn der Integration 
C (SUBR.ANF), L=0 alte Werte beibehalten (wiederholte Vorwärtsintegration 
C von TZ an), L=l,2 Zeitumkehr der aktualen Koordinaten, also Differenz 
C der ersten beiden Örter auf die der letzten beiden transformieren. 

SAVE 

PARAMETER ( LI=1 1 ,LM=LI/2 , LM2=2*LM, LI1=LI+1 , LN=2 7 ) 

C0MM0N/P0LYN1 /E ( LI , LI ) /OG/X ( 3 , LN ) , DDX ( 3 , LN ) , DX ( 3 , LN ) 

C0MM0N/MATRIX/Y(3,LN,LI1) , DDY ( 3 , LN , LH ) 

IF(M.EQ.O) RETURN 

D01I=N1,N2 

D02K=1,3 

IF(M.EQ.-1)Y(K,I,LI1)=DX(K,I) 

IF(M.GE. 1)Y(K,I,LI1)=-Y(K,I,LI1) 

appr=y ( k,i, lil ) 

D03L=1,LI 

Y ( K, I , LI 1 ) =Y ( K , I , LI 1 ) + ( E ( LI , L ) -E ( LM2 , L ) ) *DDY ( K , I , L ) 

IF(M.GE.1)Y(K,I,LI1)=Y(K,I,LI1)-(E(2,L)-E(1,L) )*DDY(K,I,L) 
3 CONTINUE 
2 CONTINUE 
1 CONTINUE 

RETURN 

END 

SUBROUTINE EPH ( T , TT , AK , NF , DT , NE , NRBV , IFBVO ) 
CUNI VIRTUAL /BEOB/ , /BEI/ , /BE2/ , /GEWI/ , /KOEFF/ 

IMPLICIT DOUBLE PRECISION ( A-H , 0-Z ) 

EXTERNAL SQRT , DSQRT , DMOD , DLOG1 , DCOS , DSIN , DACOS 

PARAMETER (LN=2 7 ,LI=1 1 , LI 1=LI+1 , LU=16 ,LU1=LU+1 , LU6=LU-6 ) 

PARAMETER (LBE=5 00 ,LBE2=2*LBE , LLS=1 ) 

CHARACTER* 1 ITO , IXYZO , IX, IY , IZ , IT , ISIG, ISIGO 

CHARACTER*4 ISTRIN, ISTR2 , ISTR3 

REAL LS ( 2 , LLS ) 

COMMON/BEOB/TOBS(LBE) , R2 ( LBE ) , DEK2 (LBE) , DX ( LBE ) , DY ( LBE ) ,DZ (LBE) , 
. NTOBS ( LBE ) , IART ( LBE ) 

COMMON /MATRIX/ Y( 3, LN, LH) /MASSE /AM (LN) ,NZENTZ/K2/C00 ( LU1 , LU1 ) , STA 

COMMON/ZUSK/TZ,IEPHE,IOBS,IANFG,IENDE, IB0,NGR,GR 

COMMON/UNB/M00,IBZ,NG6IBZ,B(2,LU) ,B0(2,LU6) ,U(LU6) /GEWI/P ( 2 , LBE ) 

COMMON/BE 1 /ISTRIN ( LBE , 3 ) /BE2 /RES ( 2 , LBE ) /ERR/MERR/KOEFF/C ( LU1 , LBE2 ) 

COMMON/EPHO /DEDAE ( 2 , 2 ) , XO , YO , ZO , RA, DEKL , D/LS1 /LS 

COMMON/EPHl/ZEIT,TE,T0,OX0(LI) ,OY0(LI) ,OZ0(LI) 

COMMON/XYZ/IFXYZ 

COMMON/Z IEL/IH,IHEQ,TIH,TIH1,TIH2 

DIMENSION OX(LI) ,OY(LI) ,OZ(LI) 

DIMENSION C0(3,LU) ,DQ(LI) , DQO(LI) 

DIMENSION DRA(LU) , DDE ( LU ) ,DXO(LU) ,DYO(LU) ,DZO(LU) ,DR(LU) ,DD(LU) 

DIMENSION X0(3),XZ0(3) 

EQUIVALENCE ( XO ( 1 ) , XEO ) , ( XO ( 2 ) , YEO ) , ( XO ( 3 ) , ZEO ) 

EQUIVALENCE ( XZO ( 1 ) , XZ ) , ( XZO ( 2 ) , YZ ) , ( XZO ( 3 ) , ZZ ) 

SAVE 

DATA AE /149597870.65295DO/ 

DATA IXYZ,PI,ZWEIPI /0 , 3 . 14 15926535897 93D0 , 6 . 283 185307 179586D0/ 

DATA UNC,RR,RR0 / 1 . D-12 , 206264 . 8062471D0 , 13750 . 987083 1D0/ 

DATA IEPHZ /0/ 

DATA IX,IY,IZ,IT0 /'X'.'Y'j'Z'j'D'/ 
C Unterprogramm zum Nachrechnen von Beobachtungen oder einer Ephemeride. 
C T ist die im Hauptprogramm dem Index LI zugehörige Zeit, auf welche 
C auch die übergegebenen Koordinaten bezogen sind. TT gibt an, um wieviel 
C der Ephemeridenzeitpunkt in Integrationsrichtung gerechnet hinter 
C T liegt (in Einheiten der Schrittweite), T0 dgl. retadiert um die 
C Aberrationszeit. AK ist die Aberrationszeit pro AE , 

C auch in Schrittweiten ausgedrückt. UNC ist das Abbruchkriterium wegen 
C der Iteration n. d. Aberrationszeit , bezogen auf die geozentrische Distanz. 
C NE ist im Falle der Berechnung eines Ephemeridenortes für ET bzw. UT 
C oder -1, beim Nachrechnen einer Beobachtung gleich deren Index. 
C LLS dient zum Ausdruck von helioz . Distanz LS(1,NE) in AE und radialem light 
C shift LS(2,NE) in E-6 AE zusätzlich zu den letztberechneten Residuais. 



C Bei Gebrauch muß LLS=LBE>1 und in SUBR.ZCOEFF IIF=10/11 sein. 
C 11=0 bei erster Rechn. ohne Aberr. (geom.Ort). IHEQ=0/1 b. FK5/FK4 
C IEPHZ=0/1 falls Ephemeride von Monden relativ zu Planet/absolut 
C NZZ=NZENTZ falls Beobachtung oder Ephemeride eines Mondes relativ zu Planet 
6 6 CONTINUE 

T0=TT 

TE=TT 

D0=.0D0 

11 = 

IF ( NE . LE . . OR . IFXYZ . EQ . ) GOT05 

IXYZ=0 

ISTR2=ISTRIN(NE,2 ) 
CUNI DECODE (3, 51, ISTR2 ) IXYZO 

READ ( ISTR2 , 51 ) IXYZO 
51 FORMAT ( 2 X, AI) 

IF ( IXYZ . EQ . IX ) IXYZ= 1 

IF( IXYZO. EQ.IY)IXYZ=2 

IF(IXYZ0.EQ.IZ )IXYZ=3 
5 CONTINUE 
C Feststellen ob dif f .Beob. /Ephem. e. Mondes 

NZZ=NZENTZ 

IF(NZZ.EQ. l)GOTO20 

IF(NE.LE.O.AND.IEPHZ.EQ. 1)NZZ=1 

IF(NE.LE.O )GOTO2 

ISTR3=ISTRIN(NE,3) 
CUNI DECODE(3,21,ISTR3)IT 

READ(ISTR3,21)IT 
21 FORMAT(2X,Al) 

IF(IT.NE.IT0)NZZ=1 
2 CONTINUE 

NF0=NF 
C Objektkoordinaten 

D042J=1,LI 

OX( J)=Y( 1,NF0,LI1-J) 

OY(J)=Y(2,NF0,LIl-J) 

OZ( J)=Y(3,NF0,LI1-J) 
42 CONTINUE 

CALL INTl(LI,OX,OX0) 

CALL INTl(LI,OY,OY0) 

CALL INTl(LI,OZ,OZ0) 
C Erdkoordinaten 

IF(NRBV.GT.0.AND. .NOT. (NRBV.EQ. 101 . AND .NE .LE . ) . AND . IB0 . NE . )GOT02 

ZEIT=T-TE*DT 

CALL PLANET (4, ZEIT, TE, DT, 0,XO) 

CALL ERDE (XEO,YEO,ZE0,ZEIT,XE,YE,ZE) 

IF(NE.LE.0)GOTO5 

DX(NE)=DX(NE)+XE 

DY(NE)=DY(NE)+YE 

DZ(NE)=DZ(NE)+ZE 
2 CONTINUE 

XE=DX(NE) 

YE=DY(NE) 

ZE=DZ(NE) 

IF ( NRBV . EQ . - 1 ) RETURN 
C Iteration wegen der Aberrationszeit 
5 CONTINUE 

CALL INT2(LI,OX0,T0,XO) 

CALL INT2 (LI,OY0,T0,YO) 

CALL INT2(LI,OZ0,T0,ZO) 
C geometr. Ort ausgeben 

IF(IH.EQ.O.OR.T.LT.TIH1.0R.T.GT.TIH2 .OR.NE . GT . . OR. II . NE . 
. OR . NRBV . LT . 1 1 ) GOT07 

IF(IHEQ.EQ.0)WRITE(6,60)DATUM(T-TT*DT) , XO, YO, ZO, XO*AE , YO*AE , ZO*AE 
60 FORMAT( 1X,F11.2, ' geom.Ort FK5 (AE/km) : ' , 11X, 3F14 . 10 , IX, 3F13 . 1 ) 

IF ( IHEQ . EQ . 1 ) CALL EKLAEQ ( XO*AE , YO*AE , - . 25 6D-5 , XOH , YOH ) 



IF(IHEQ.EQ.1)WRITE(6,61)DATUM(T-TT*DT) , XO, YO, ZO, XOH , YOH , ZO*AE 
61 FORMAT( 1X,F11.2, ' geom.Ort FK5 (AE ) /FK5-0 . 528 " (km) : ', 

3F14.10,1X,3F13.1) 
7 CONTINUE 
CP call phase (xo,yo, zo,xe f ye, ze) PALLAS 

CALL RECPOL ( XO-XE , YO-YE , ZO-ZE , D , DEKL , RA ) 
C D ist die geozentrische Distanz, DEKL=Deklination, RA=Rektaszension. 
C Aberrationszeit und ellipt. Aberration sind dabei inbegrif f en (astrometr .Ort ) 

IF(IXYZ.NE.0)GOTO17 

IF(DABS(D-D0) .LT.UNC)GOT04 

IF(NE.LT. 1 )GOT044 

IF ( IART ( NE ) . EQ . 1 ) GOT04 
44 T0=TT+D*AK 

D0=D 

11=1+1 

GOT05 
4 CONTINUE 

IF(RA.LE. .0D0)RA=RA+8.D0*DATAN( 1.D0) 
C Berücksichtigung der Auswirkung IBZ Zusatzunbekannten wie etwa Korrektur d. 
C Äquinoktiums oder Äquators etc. Ggf. RA,Dekl etc nach ZCOEFF übergeben. 
C In diesem Falle gibt die Ephemeride rechtw. Koordinaten des Körpers 
C im verbesserten, der Erde im alten System, der Übergang zwischen 
C beiden wird durch Anbringung von (U*B0) an die formal berechneten 
C geozentrischen Koordinaten gebildet, die auf das alte System bezogen sind. 

IF(IBZ.EQ.0)GOTO15 
C Etwaige Zusatzunbekannte noch nicht bei relativen Beob. v. Monden berücks . 

CALL ZCOEFF(XE,YE,ZE,T-TT*DT) 

D016I=1,IBZ 

RA=RA+B0( 1,I)*U(I) 

DEKL=DEKL+B0 ( 2 , I ) *U ( I ) 

16 CONTINUE 
15 CONTINUE 

C Falls diff. RA,Dekl. zu einem Zentralkörper (b. Monden) 
IF(NZZ.EQ. l)GOT017 
ZEIT=T-T0*DT 

CALL PLANET (NZENTZ, ZEIT, T0*1. DO, DT, 0,XZ0) 
CALL RECPOL ( XZ -XE , YZ-YE ,ZZ-ZE,DISTZ, DEKLZ , RAZ ) 

17 CONTINUE 

IF ( NE . LE . . AND . MERR . EQ . ) GOTO 1 1 
C Interpolation der Bedingungsgleichungen zur Bahnverbesserung 

IF ( IFBVO . EQ . ) GOTOl 

NGR6=NGR+6 

D08I=1,NGR6 

D08K=1,3 

D09J=1,LI 
9 DQ( J)=Y(K,NF+I,LI1-J) 

CALL INT1(LI,DQ,DQ0) 

CALL INT2 (LI,DQ0,T0,C0(K,I) ) 
8 CONTINUE 

ZEIT=T-TT*DT 

IF(IH.NE.O .AND.DABS( ( ZEIT-TIH ) /DT ) .LT. l.D-6)CALL ERAN1 (CO , TIH ) 

IF ( NE. LE.O) GOTOl 1 
10 CONTINUE 
C Partiais für xyz als Beobachtung 

IF ( IXYZ . EQ . ) GOT054 

IF ( IFBVO . EQ . ) GOT053 

CALL CXK00(3,NGR6,C0) 

DO52I=l,M00 

C ( 1 , 2 *NE- 1 ) =C0 ( IXYZ , I ) *P ( 1 , NE ) *AE /RR 

52 C(I,2*NE)=.0D0 

53 RES(2,NE)=.0D0 

IF ( IXYZ . EQ . 1 ) RES ( 1 , NE ) =R2 ( NE ) -XO*AE/RR 
IF ( IXYZ . EQ . 2 ) RES ( 1 , NE ) =R2 ( NE ) - YO*AE/RR 
IF ( IXYZ . EQ . 3 ) RES ( 1 , NE ) =R2 ( NE ) -ZO*AE/RR 
C(M0 0+1,2*NE-1)=RES( 1,NE)*P( 1,NE) 



C(M00+1,2*NE)=.0D0 

RETURN 
54 CONTINUE 
C Bedingungsgleichung einer Beob. in Rekt./Dekl. 

IF(NZZ.EQ. 1)RES1=(DM0D(R2(NE)-RA+(PI+ZWEIPI) ,ZWEIPI)-PI) 

*DC0S(DEK2 (NE) ) 
RES2=DEK2 ( NE ) -DEKL 
IF(NZZ.NE. 1)RES1=R2(NE)+(DM0D(RAZ-RA+(PI+ZWEIPI) ,ZWEIPI)-PI) 

*DCOS( (DEKL+DEKLZ)/2.D0) 
IF(NZZ.NE. 1)RES2=RES2+DEKLZ 
IF ( IFBVO . NE . ) CALL COEFF ( RA, DEKL , D , CO ) 
CALL DEDAEO(NE,DT) 
IF( IFBVO. EQ.0)GOTOl 12 
C* Nachf. bei Monden (Relativposition) noch nicht berücks . 
DO108L=l,2 
DO108I=l,M00 

C(I,2*NE-2+L)=(DEDAE(L, 1)*B( 1 , I ) +DEDAE (L, 2 ) *B ( 2 , I ) )*P(L,NE) 
108 CONTINUE 
112 CONTINUE 
C# Wenn statt Resid.in Elongat.der light shift in km auszug., nachf .Anw. mit C# 
C# R=DSQRT(XO*XO+YO*YO+ZO*ZO) 
C# RE=DSQRT(XE*XE+YE*YE+ZE*ZE) 

C# FAKTOR=D/DABS(DSIN(DACOS( ( R*R+D*D-RE*RE ) /2 . DO/R/D ) ) ) 
RES( 1,NE)=DEDAE(1, 1 ) *RES1+DEDAE ( 1,2 ) *RES2 
RES(2,NE)=DEDAE(2, 1 ) *RES1+DEDAE ( 2 , 2 ) *RES2 
C# RES(2,NE)=(DEDAE(2, 1 ) »RES1+DEDAE ( 2 , 2 ) *RES2 ) *FAKTOR 
C(M0 0+1,2*NE-1)=RES( 1,NE)*P( 1 , NE ) 
C(M00+1,2*NE)=RES(2,NE)*P(2,NE) 
C# C(M00+1,2*NE)=RES(2,NE)*P(2,NE) /FAKTOR 

IF(LLS.EQ. 1. OR.NRBV.LT. 101)GOTO110 
C Falls separate Ausgabe von geoz.Dist. und light shift in " nach letzter Bv. : 
CALL ZCOEFF(XE,YE,ZE,T-TT*DT) 
LS( l,NE)=SQRT(SNGL(XO*XO+YO*YO+ZO*ZO) ) 
B01=B0( 1, 1 )*DCOS(DEKL) 

LS(2,NE)=SNGL( ( B01*RES1+B0 ( 2 , 1 ) *RES2 ) / ( BO 1**2+B0 ( 2 , 1)**2) ) 
110 CONTINUE 
RETURN 
11 CONTINUE 
C Berechnung einer Ephemeride, ggf. mit mittl . Fehler 

C Bei NZZ.NE.l ist die Ephemeride in dRA*cos (Dekl ) und dDekl zum Planeten 
C Falls die Ephemeride auf das FK4-System bezogen werden soll: 
C IF(NZZ.EQ. 1)CALL FK ( T, RA* 1 . DO , DEKL*1 . DO , RA, DEKL, -1 ) 
IF(NZZ.NE. l)GOT071 

CALL GRADB ( RA/ 15 . DO , ISIGO , IRA1 , IRA2 , RAO ) 
CALL GRADB ( DEKL, ISIG, ID1 , ID2 , DEO ) 
R=DSQRT(XO*XO+YO*YO+Z0*Z0) 
GR0=GR+5.*DLOG10(D*R) 

WRITE (6,7) DATUM) T-TT*DT ) , IRA1 , IRA2 , RAO , ISIG, ID1 , ID2 , DEO , D , 
. R , GRO , XE , YE , ZE , XO , YO , ZO 
7 FORMAT ( 1X,F11.2,1X,2I3,F7.3,2X,A1,I2,I3,F6.2, 
.2( 1X,F8.5) ,F6. 1,2 ( 1X,3F11.7) ) 
GOTO 7 2 
71 CONTINUE 

RA0= ( DMOD ( RA-RAZ+ ( PI+ZWEIPI ) , ZWEIPI ) -PI ) *DCOS ( ( DEKL+DEKLZ ) /2 . DO ) 
DE0=(DMOD(DEKL-DEKLZ+(PI+ZWEIPI) , ZWEIPI) -PI) 
RZ=DSQRT( ( XO-XZ ) **2+( YO-YZ ) **2+( ZO-ZZ ) **2 ) 
R=DSQRT(XO*XO+YO*YO+ZO*ZO) 
GR0=GR+5.*DLOG10(D*R) 

WRITE (6, 7 3 ) DATUM (T-TT*DT) , RA0*RR, DE0*RR, D, 
RZ, GRO, XE, YE,ZE, XO-XZ, YO-YZ, ZO-ZZ 
7 3 FORMAT ( 1X,F11.2,3X,F9.2,5X,F9.2,2X, 

2( 1X,F8.5) ,F6. 1,2( 1X,3F11.7) ) 
7 2 CONTINUE 

IF ( MERR . EQ . ) GOT06 5 
C Berechnung der mittl. Fehler 



CALL COEFF(RA,DEKL,D,C0) 

DO23I=l,M00 

DRA(I)=B( 1,1) 

DDE(I)=B(2,I) 
2 3 CONTINUE 

CALL MF2 (M00,DRA,FRA) 

CALL MF2 (M00,DDE,FDE) 

CALL CXK00(3,NGR6,C0) 

D022I=1,NGR6 

DXO(I)=C0(l,I) 

DYO(I)=C0(2,I) 

DZO(I)=C0(3,I) 

IF(NZZ.EQ. l)DR(I)=(DXO(I)*XO+DYO(I)*YO+DZO(I)*ZO)/R 

IF(NZZ.NE. 1) 
. DR ( I ) = ( DXO ( I ) * ( XO-XZ ) +DYO ( I ) * ( YO- YZ ) +DZO ( I ) * ( ZO-Z Z ) ) /RZ 

DD ( I ) = ( DXO ( I ) * ( XO-XE ) +DYO ( I ) * ( YO- YE ) +DZO ( I ) * ( ZO-ZE ) ) /D 
22 CONTINUE 

CALL MF2 (NGR6,DXO,FXO) 

CALL MF2 (NGR6,DYO,FY0) 

CALL MF2 (NGR6,DZO,FZO) 

CALL MF2 (NGR6,DR,FR) 

CALL MF2 (NGR6,DD,FD) 

IF(NZZ.EQ. 1)WRITE(6,27)FRA*RR0*STA,FDE*RR*STA,FD*STA,FR*STA, 
FXO*STA, FYO*STA, FZO*STA 

IF(NZZ.NE. 1)WRITE(6,28)FRA*RR*STA,FDE*RR*STA,FD*STA,FR*STA, 
. FXO*STA,FYO*STA,FZO*STA 

IF(IH.EQ.0)GOTO67 

IF(T.GE.TIH1.AND.T.LE.TIH2)WRITE(6, 12 7 ) DATUM ( T-TT*DT ) , 

FXO*STA,FYO*STA,FZO*STA,FXO*STA*AE,FYO*STA*AE,FZO*STA*AE 
127 FORMAT( 1X,F11.2, ' mittl . Fehler : ' , 19X, 3F14 . 10 , IX, 3F13 . 1 ) 
2 7 FORMAT (6X, 'm.F. ' ,7X,F9.3,6X,F8.2,F10.7,F12.10,37X,3F11.7) 
2 8 FORMAT (6X, 'm.F. ' , 5X, F9 . 2 , 5X,F9 . 2 , 2X,F10 . 7 , F12 . 10 , 37X, 3F11 . 7 ) 
65 IF(DABS( (T-TIH)/DT-TT) . GT . .5D0.OR. 

DABS( (T-TIH)/DT-TT) .LT. l.D-6)GOT067 

TT=(T-TIH)/DT 

GOTO 6 6 
67 CONTINUE 

RETURN 

END 
CP subroutine phase (x,y , z ,xe,ye, ze) PALLAS 

CP implicit double precision (a-h,o-z) PALLAS 

C Korrektur der heliozentrischen Koordinaten bei Ephemeridenrechnung PALLAS 
C wegen Beleuchtungsphase PALLAS 

CP save 

CP external dsqrt 

CP data radius /3.9D-6/ PALLAS 

CP call recpol (x-xe,y-ye, z-ze,d,de, ra ) PALLAS 

CP call recpol(x,y, z,r,de0,ra0) PALLAS 

CP cosi=( (x-xe) *x+(y-ye) *y+( z-ze) *z) /r/d PALLAS 

CP dr=0.5D0*radius*(1.0D0-cosi) /dsqrt ( 1 .d0-cosi**2 ) PALLAS 

CP f=1.0D0-dr/r PALLAS 

CP x=x*f PALLAS 

CP y=y*f PALLAS 

CP z=z*f PALLAS 

CP return PALLAS 

CP end PALLAS 

SUBROUTINE ERAN HALLEY 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Berechnet die Unsicherheiten der Positionswerte des Himmelskörpers, 
C projeziert in eine vorgegebene Richtung (Komponenten X im Äquator- 
C System ausgedrueckt ) , so daß diese Richtung zur t-Achse eines neuen Koordi- 
C natensystemes (R=r,s,t) und die Ausrichtung dessen r-Achse variiert wird 
C (Drehwinkel W, entspr. Neigung der r-Achse zu einer vorgegebenen Ebene 
C wie etwa Ekliptik oder Kometenbahn, OBLQ). ST Mittl. F. der Gew.einheit. 
C Beispiel: Beim Vorbeiflug einer Sonde an einem Kometen soll die Unsi- 



C cherheit seiner Position in Flugrichtung (t-Richtung) und im 

C miss vector (bei Zählung von Ekliptik oder Kometenbahnebene aus) ange- 

C geben werden. 

C SD,CD,SR,CR Sinus und Kosinus der Rekt . und Dekl . in Richtung X, 

C Xl, X2 Normalenvektor senkrecht auf Ekliptik bzw. Kometenbahnebene 

C im Äquatorsystem (weitere Ebenen entsprechend einbaubar) 

C Symbol . f .Partiais : U Unbekannte, R Targetkoord. , X äq.helioz .K. , G geoz.Dis. 

C Alle Daten des Vorbeifluges müssen nachfolgend und in BDERAN vorgegeben 

C werden. Die aktuelle Eingabe ob eine genaue Vorausberechnung/Fehlerrechnung 

C gemacht werden soll, erfolgt durch Eingabe von IH/MERR a.d. ersten Datenk. 

C IH=0 keine genaue Vorausb. /Fehlerr . , IH=l/2 genaue Vb., bei MERR>0 Fehler- 

C rechnung mit aktuekllen/als 1" angen . mittl. Fehler (akt .Rechng. /Prognose) , 

C MERR=0/l/2 ohne/mit Fehlerrechnung/m. F. und zusätzl. Normalgl . ( SUBR.MFO ) . 

C M,ZEIT,DXDU werden b. letzter Bahnverb, in SUBR.ERAN1 abgesp. 

SAVE 

PARAMETER ( LU=16 ,LU1=LU+1 ) 

EXTERNAL DSQRT, DSIN, DCOS 

CHARACTER* 12 EBENE 1 , EBENE2 , EBENE3 

COMMON/Z IEL/IH/ERRAN/M, ZEIT, DXDU(LU, 3 ) /K2/C (LU1 , LU1 ) ,ST 

DIMENSION X(3) ,R(3) ,X1(3) ,X2(3) ,FR(3) ,FX(3) , DRDX ( 3 , 3 ) ,DRDU(LU,3) 

DIMENSION X3(3) ,DDDU(LU) ,DDDX(3) 

DATA EBENE1,EBENE2,EBENE3 /' Ekliptik ',' Halleybahn ', 
' Giottobahn ' / 

DATA ZWEIPI,AE /6 . 283 185307 179586D0 , 149597870 . 65295D0/ 
C DATA X /+.698218071978D0,-.662129269981D0,-.272169715064D0/ 

DATA XI /.ODO,-.397881158349D0,+.917436964501D0/ 
C DATA X2 /+.259094909205D0,+.231212705376D0,-.937768901647D0/ 
C DATA X3 /-.028760832565D0,-.405799485733D0,+.913509491953D0/ 
C DATA DDDX /- . 5883434D0 , - . 7322 187D0 , - . 3430858D0/ 

DATA X /+.685119981D0,-.675861DO,-.271703D0/ 

DATA X2 /+.259093736D0,+.231211897D0,-.937769425D0/ 

DATA X3 /-.035747464DO,-.403744720DO,+.914173025DO/ 

DATA DDDX /-. 59654 7847D0 ,-. 725286768D0 ,-. 34364 1942D0/ 
C (Entsprechen der Vorbeiflugrichtung von Giotto am Halley' sehen Kometen 
C und der Normalen senkrecht zur Ekliptik, Halley- und Giottobahnebene ) . 

IF ( M . EQ . . OR . IH . EQ . ) RETURN 

AE=AE*ST 

SD=X(3) 

CD=DSQRT( 1 .D0-SD*SD) 

SR=X(2)/CD 
C CR=X(1)/CD 

CR=DSQRT( 1 .D0-SR*SR) 

IF(X( 1) .LT. .OD0)CR=-CR 

WRITE(6, 12 )ZEIT,M 

12 FORMAT( ////, 10X, ' ### Fehlerrechnung für den Vorbeiflug einer ', 

. 'Raumsonde ###',///' Ableitungsmatrix des Ortes zur Zeit ',F13.4, 
. ' nach den ',12,' Unbekannten:',/) 
D013L=1,3 

13 WRITE(6, 14) (DXDU(I,L) ,1=1, M) 

14 FORMAT(7( 1X,G17.10) ) 

C Mittl. Fehler FX in äquatorealen Koordinaten X,Y,Z,R des Kometen 
DO10J=l,M 
10 DDDU( J)=DXDU( J,1)*DDDX( 1)+DXDU( J,2 ) *DDDX ( 2 ) +DXDU ( J , 3 ) *DDDX ( 3 ) 
CALL MF2 (M,DDDU,FD) 
D02I=1,3 
2 CALL MF2 (M,DXDU(1,I) ,FX(I) ) 

WRITE(6,20)ZEIT,FX( 1 ) *AE , FX ( 2 ) *AE , FX ( 3 ) *AE , FD*AE , ST* 2 062 6 4 .8D0 
20 FORMAT(///' Unsicherheit der äquatorealen Koordinaten und ', 
'helioz. Distanz: ',//' Zeit : ' , F15 . 3 , ' dx ',F8.1,' dy ', 
F8.1,' dz ',F8.1,' dr ',F8.1,' (in km) bei m.F.',F8.3,' "'/) 
WRITE(6, 15 )EBENE1,X1,EBENE2,X2,EBENE3,X3,X 

15 FORMAT(///' Bezugsebenen des Fehlerellipsoides :',//, 4X, ' Name ', 10X, 

'Normalenvektor im Äquator System' ,/, 3 (/, IX, A12 , 3F16 . 11 ),// , 
' Flugrichtung der Sonde: ' , 3F12 . 8 , /// ) 
WRITE(6,21) 



21 FORMAT( //20X, 'Fehlerellipsoid' // ' Winkel ', 5X, ■ dr (km) ', 5X, 
'dt (km) ' ,6X, 'Cl ' ,7X, ' C2 ' ,7X, ' C3 ' /) 
C Berechnung von DRDX( I , J)=dR( J) /dX( I ) mit Variation von W 
C (ergibt die Fehlerellipse in der s,t-Ebene.) 

DRDX( 1,3)=CD*CR 

DRDX(2,3)=CD*SR 

DRDX(3,3)=SD 

D01IW=1,36 

W=ZWEIPI/36.D0*IW 

SW=DSIN(W) 

CW=DCOS(W) 

DRDX( 1, 1)=CW*SD*CR-SW*SR 

DRDX(2, 1)=CW*SD*SR+SW*CR 

DRDX(3, 1)=-CW*CD 
C DRDX( 1,2)=-SW*SD*CR-CW*SR 
C DRDX(2,2)=-SW*SD*SR+CW*CR 
C DRDX(3,2)=SW*CD 

C Kontrolle: bei Transformation der Richtung X, wird r=l,s=t=0 
C D09I=1,3 
C R(I)=.0D0 
C D09J=1,3 

C 9 R(I)=R(I)+X( J)*DRDX( J,I) 

C Berechnung des Winkels OBLQ der r-Achse zu den vorgeg. Ebenen (Ekliptik, 
C Kometenbahn usw) . Falls cos (OBLQ) =r-Komponente d.Normalen=0 liegt 
C die r-Achse in der betr. Ebene 

S0BLQ1=X1( 1)*DRDX(1, 1 ) +X1 ( 2 ) *DRDX ( 2 , 1 ) +X1 ( 3 ) *DRDX ( 3 , 1) 

SOBLQ2=X2( 1)*DRDX( 1, 1 ) +X2 ( 2 ) *DRDX ( 2 , 1 ) +X2 ( 3 ) *DRDX ( 3 , 1) 

SOBLQ3=X3( 1)*DRDX( 1, 1 ) +X3 ( 2 ) *DRDX ( 2 , 1 ) +X3 ( 3 ) *DRDX ( 3 , 1) 
C Transformationsmatrix DRDU( I , J)=dR( J) /dU( I ) , für r immer, für s nicht, 
C für t nur einmal (bei IW=1) zu berechnen 

J=-l 
7 J=J+2 

D06I=1,M 

DRDU(I, J)=.0D0 

D06K=1,3 
6 DRDU ( I , J ) =DRDU ( I , J ) +DRDX ( K , J ) * DXDU ( I , K ) 
C Fehler in r-Richtung 

CALL MF2 (M,DRDU(1, J) ,FR( J) ) 

IF(IW.EQ. LAND. J.EQ. 1)G0T07 
C Ausdruck der Ergebnisse 

WRITE (6,22)10. *IW, FR (1) *AE , FR( 3 ) *AE , SOBLQ1 , SOBLQ2 , SOBLQ3 
2 2 FORMAT (2X,F5.1, 2 (3X,F8. 1 ) , 3 ( 2X , F7 . 3 ) ) 
1 CONTINUE 

WRITE (6, 2 3 )EBENE1,EBENE2,EBENE3 
23 FORMAT(/,' (dr,dt mittl. Fehler in r- bzw. t-Richtung, ' , 
. / ' C1-C3 Sinus der Neigung der r-Richtung zu ' , 
. A12, ' / ' ,A12, ' / ■ ,A12, ')'//) 

RETURN 

END 

BLOCK DATA BDERAN 
C Die Werte für TIH1,TIH2 werden aktuell durch die eingegebenen IANFG, IENDE 
C übersteuert. Sie müssen bei erw. Prognose/Fehlerr . f . TIH dies einschließen. 
C Bei Vorbesetzung M=0 erfolgt keine Berechnung der Fehlerellipse 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

COMMON/Z IEL/IH,IHEQ, TIH, TIH1 , TIH2 /ERRAN/M 

DATA M,IH,IHEQ /1,0,1/ 

DATA TIH,TIH1,TIH2 /2446503 . 5D0 , 2446470. 5D0, 2446505. 5D0/ 

END 

SUBROUTINE CXK00 (LDIM, KDIM, C ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Umformung von Ableitungen C irgendwelcher Größen nach den rechtwink- 
C ligen Initialwerten in solche nach den Unbekannten. 
C LDIM Anzahl der betr. Größen, deren Ableitungen gemeint sind 
C (z.Bsp. moment.Koord. bzw. RA,Dekl: LDIM=3 bzw. 2), KDIM<=LU 



C Anzahl der Elemente, nach denen die Diffq. zu berücksichtigen sind 
C (z.Bsp. NG6 bei moment .rechtw.Koord. , NG6IBZ bei Rekt. und Dekl.) 

SAVE 

PARAMETER ( LU=16 ,LU1=LU+1 ) 

COMMON/NV/IFO , NG6 , IFEST ( LU1 ) , CEK ( LU , LU ) , CXK ( LU , LU ) 

COMMON/UNB/MO , IBZ ,NG6IBZ 

DIMENSION C(LDIM,LU) , H ( LU ) 

IF ( IFO . EQ . ) RETURN 

D04L=1,LDIM 

M=0 

D01K=1,NG6IBZ 

IF( IFEST (K) .NE.0)GOTOl 

M=M+1 

H(M)=.0D0 

D02I=1,KDIM 
2 H(M)=H(M)+C(L,I)*CXK(I,K) 

1 CONTINUE 
D05K=1,M 

5 C(L,K)=H(K) 
D06K=M+1,NG6IBZ 

6 C(L,K)=.0D0 
4 CONTINUE 

RETURN 

END 

SUBROUTINE ERAN1(C0,T0) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Abspeichern von dx/dK für den Zeitpunkt, für welchen am Schluß 
C eine Fehlerabschätzung der Position erfolgen soll 

SAVE 

PARAMETER (LU=16) 

COMMON/ERRAN/M,T,Cl(LU,3)/NV/I00,NGR6 

DIMENSION C0(3,LU) ,C10(3,LU) 

IF(M.EQ.O) RETURN 

T=DATUM(T0) 

M=NGR6 

D02I=1,3 

D02J=1,NGR6 

2 C10(I, J)=C0(I, J) 

CALL CXK00(3,NGR6,C10) 

D01I=1,3 

D01J=1,NGR6 
1 Cl( J,I)=C10(I, J) 

RETURN 

END 

SUBROUTINE AEQKST ( OMEGA, ASCD , OBL , EQ , PX , PY , PZ , QX , QY , QZ , I ) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 
C Berechnet die Äquatorkonstanten der Bahnebene aus den Lageelementen. 
C Bei I.NE.O sind die eingeg. Bahnelemente vom FK4- zum FK5-System umzui 
C Änderungen FK5-FK4: dE0=+.525", dE+dLambda=+l . 245 " ,dPl=+l . 10" , 
C dEps=+.0189" . 

SAVE 

EXTERNAL DSIN, DCOS , DATAN 

COMMON/ZUSK/TZ 

DATA E0,ELAM,DPl,DEPS/2.54 52 7D-6,6.035 93D-6,5.3 32 9 5D-6,9. 162 98D-8/ 

TE=(EQ-1900.D0)/100.D0 

EPS=2 3.4 52 2 94 61D0-1.3 02 3 3D-2*TE-1.6 75D-6*TE**2+5.04D-7*TE**3 

EPS=EPS*DATAN(1.D0)/45.D0 

PX=DCOS ( OMEGA ) *DCOS ( ASCD ) -DSIN ( OMEGA ) *DSIN ( ASCD ) *DCOS ( OBL ) 

QX=-DSIN ( OMEGA ) *DCOS ( ASCD ) -DCOS ( OMEGA ) *DSIN ( ASCD ) *DCOS ( OBL ) 

PY0=DCOS ( OMEGA ) * DS IN ( ASCD ) +DS IN ( OMEGA ) *DCOS ( ASCD ) * DCOS ( OBL ) 

QY0=-DSIN ( OMEGA ) *DSIN ( ASCD ) +DCOS ( OMEGA )*DCOS( ASCD )*DCOS( OBL) 

PZ 0=DSIN ( OMEGA ) *DSIN ( OBL ) 

QZ 0=DCOS ( OMEGA ) *DSIN ( OBL ) 

IF(I.NE. 1JGOT01 

T0=(TZ-2433282.423D0) 736525. DO 



HALLEY 
HALLEY 
HALLEY 
HALLEY 

HALLEY 
HALLEY 
HALLEY 

HALLEY 

HALLEY 
HALLEY 
HALLEY 
HALLEY 
HALLEY 
HALLEY 
HALLEY 
HALLEY 
HALLEY 



DRA=EO+ELAM*TO 
DLONG=-DP1*TO 
EPS=EPS-DEPS 

CALL EKLAEQ ( PX* 1 . DO , PYO * 1 . DO , DLONG , PX , PYO ) 
CALL EKLAEQ ( QX* 1 . DO , QYO * 1 . DO , DLONG , QX , QYO ) 
1 CALL EKLAEQ) PYO, PZO, EPS, PY,PZ) 
CALL EKLAEQ ( QYO, QZO, EPS, QY,QZ) 
IF(I.NE. 1) RETURN 

CALL EKLAEQ ( PX* 1 . DO , PY* 1 . DO , DRA, PX , PY ) 
CALL EKLAEQ ( QX* 1 . DO , QY* 1 . DO , DRA, QX , QY ) 
RETURN 
END 

SUBROUTINE INT1 (N, XO , XV) 
IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 
C Bildung der Differenzen von numerischen Funktionswerten zwecks Interpolation 
SAVE 

PARAMETER (LI=11) 

DIMENSION XO(LI) ,XV(LI) ,X00(LI,LI) 
D01I=1,N 
X00( 1,I)=X0(I) 

1 CONTINUE 
D02L=2,N 
D03I=L,N 
XO0(L,I)=XOO(L-l,I)-X00(L- 1,1-1) 

3 CONTINUE 

2 CONTINUE 
D04I=1,N 
XV(I)=X00(I,I) 

4 CONTINUE 
RETURN 
END 

SUBROUTINE INT2 (N, XO , T, X ) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 

SAVE 

PARAMETER (LI=11) 

DIMENSION XO(LI) 
C Interpolation einer Funktion X fuer die Zeit T aus dem in INT1 
C berechneten Differenzen nach Newtons Formel. 

TV=T 

x=xo< i) 

D01I=2,N 

X=X+X0(I)*TV 

TV=TV*(T-I+1)/I 
1 CONTINUE 

RETURN 

END 

SUBROUTINE INT3 (N, XO , T, DX ) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 

SAVE 

PARAMETER (LI=11) 

DIMENSION XO(LI) 
C Interpolation der ersten Ableitung einer Funktion X für die Zeit 
C T aus den Differenzen von X nach Newtons Formel. 

A=1.D0 

B=1.D0 

DX=X0(2) 

D01I=3,N 

A=A*(T-I+3)/(I-2) 

B=(A+B*(T-I+2) )/(I-l) 

DX=DX+X0(I)*B 
1 CONTINUE 

RETURN 

END 

SUBROUTINE JD2(A,YD) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 



C Programm zum Berechnen der julianischen Tageszahl YD aus dem Datum A. 

C Zeitangaben vor dem l.März 1583 werden als julianisch, danach als 

C gregorianisch aufgefaßt. 

C Das Programm faßt siebenstellige Zahlen als julianisches, achtst. als 

C normales Datum auf, daher können in diesem Ber .wahlweise beide eing. werden 

SAVE 

IF(A.GT.5.D6)GOT05 

YD=A 

RETURN 
5 CONTINUE 

SIG=A/DABS(A) 

B=DABS(A) 

Y=IDINT(B*l.D-4) 

P=IDINT(B/100.D0)-100.D0*Y 

D=B-1.D4*Y-10 0.D0*P 

Y=Y*SIG 

IF(P.GE.3.D0)GOTO2 

P=P+9.D0 

Y=Y-1.D0 

G0T03 

2 P=P-3.D0 

3 CONTINUE 

YDNO=5 8.5D0 + IDINT( ( Y+4 7 12 . DO ) *365 . 2 5D0 ) 
D=30.D0*P+IDINT( (P+l.D0)/2.DO)+IDINT(P/6.DO) 

-DABS(P-8.D0)*(IDINT(P/7.D0)-IDINT(P/10.D0) ) +D 
YD=YDNO+D 

IF(Y.LE. 1582 .D0)GOTO4 

GRK=2.DO-IDINT(Y/100.DO)+IDINT(Y/4 00.DO) 
YD=YD+GRK 

4 RETURN 
END 

SUBROUTINE PLANET (N,ZEIT,TE,DT,I,X) 
C VIRTUAL /BD800/ 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Objekt N von Band oder Datei lesen, bzw. aus Integration interpolieren. 
C 1=0 Koordinaten, 1=1 zeitl. Ableitungen pro Tag positiver Schrittweite. 
C ZEIT Zeit, TE Interpolationsbruchteil, E Koordinaten b. Stützstellen 
C der Interpolation, E0 Differenzenschema. NRWAR/NWAR Zeilennr . /Objekt beim 
C vorangegangenen Aufruf, dann direkt Interpolation der Koordinaten 
C (dies kann bei Wechsel der kpl . Datei, jedoch zufällig gleicher 
C Zeilennummer, falsch sein, daher NRWAR in BD8C initialisieren). 
C Interpolationsstützpunkte NREC00+1 bis NREC00+LI. Nl Angabe, wie weit 
C sich ohne Adjustierung von NREC00 die Interpolation in den nächsten 
C Block erstrecken würde (falls Koordinaten von Datei lesen). 

PARAMETER (LN=27 ,LI=1 1 , LI 1=LI+1 , LI0=LI-1 , LG=28 , LREC=180 , LEER=2 ) 

PARAMETER (LDUM=LN*3) 

COMMON /MATRIX/ Y( 3, LN, LH) 

COMMON/BD8 00/BD8(LG,LREC)/BD8 00/NRECl,NREC2,NREC,NREC00 

COMMON/BAND1 /NP1 /BAND/NP , ANFP , DTP , NRECP , IUNIT , IDIR 

DIMENSION X(3),E(LI,3),E0(LI,3) ,UNW(LDUM) 

SAVE 

DATA NWAR,UNS /0,l.D-7/ 

IF(NP1.LE.N)G0T07 

N31=(N-1)*3 
C Koordinaten aus Datei 

TE= ( ZEIT-ANFP ) /DTP 

NRWAR=NREC00 

NREC00=IDINT(TE)-1 

IF ( DABS ( NINT ( TE ) * 1 . DO-TE ) . GT . UNS ) GOTOl 1 

NREC00=NINT(TE)-1 

TE= (NREC00 + 1 ) * 1 . DO 
11 CONTINUE 

nzeit=nrec00+l 
* IF(NREC00.GT.NREC2-LI.AND.NREC00.LT.NREC2-1)NREC0 0=NREC2-LI 

Nl=MOD(NREC00+LI,LREC) 



IF(N1.LT.LI0)NREC0 0=NREC0 0-N1 

TE=TE-(NREC00+1) 

IF ( NRECO . EQ . NRWAR . AND . N . EQ . NWAR ) GOT03 

if(nzeit.lt.nrecl+l.or.nzeit.gt.nrec2-l)print * , te, 

1 ab ' ,nzeit, ' , Beob. außerhalb eingel .Planeten I 1 
D08J=1,LI 
NREC=NREC00+J 

IF ( NREC . GT . NREC1 .AND . NREC . LE . NREC2 ) GOT09 
if ( nrec . le . nrecl . or . nrec . gt . nrec2 ) print * , nrec , 

1 Planeten deswegen lesen (J =l , J, ' ) : ' 
IF(IDIR.EQ.0)GOTO19 

READ(IUNIT,REC=NREC+LEER) (UNW(NOO) , N00=1 ,N3 1 ) , ( E ( J , K) , K=l , 3 ) 
GOT08 
19 CALL BD80(0) 
9 CONTINUE 

NREC0=NREC-NREC1 
D018K=1,3 
18 E(J,K)=BD8(N31+K, NRECO) 
8 CONTINUE 

GOT02 
7 CONTINUE 
C Koordinaten aus Integration 
* TE=-(ZEIT-ANF)/DT+IN*IFVW 
D01J=1,LI 
D01K=1,3 
E( J,K)=Y(K,N,LI1-J) 

1 CONTINUE 

2 CONTINUE 

C Interpolieren 

if (te.lt. -l.d-5.or.te.gt. float(liO) (print *,' gr. Planet wird', 
. ' außerhalb dem erlaubten Bereich interpoliert, te=',te 
D04K=1,3 

4 CALL INT1(LI,E(1,K) ,E0( 1,K) ) 

3 CONTINUE 
D05K=1,3 

IF(I.EQ.O)CALL INT2(LI,E0( 1 ,K) ,TE,X(K) ) 

IF(I.EQ.0)GOTO5 

CALL INT3(LI,E0(1,K) ,TE,X(K) ) 

IF ( NP1 . GT . N ) X ( K ) =X ( K ) /DTP 

IF ( NP1 . LE . N ) X ( K ) =-X ( K ) /DT 

5 CONTINUE 
NWAR=N 
RETURN 
END 

SUBROUTINE ERDE (X0,Y0,Z0,T,X,Y,Z) 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 

SAVE 

EXTERNAL AMOD,SIN,COS 

REAL Tl , TE , A , D , E , G , V , DK , DH , DL , DB , DR , DRA , RR 

COMMON /ANZAHL/N, NF, DG, DT, IFBVO , NB1 , NB2 ,NB6 , IFM/BAND1 /NP1 

DATA RR, EPS /. 01745329252 ,. 4093 19755202D0/ 
C Programm zur Berechnung der Koordinaten der Erde X,Y,Z zur Zeit T 
C aus den integrierten Koordinaten X0,Y0,Z0 des Bary Zentrums wegen den 
C Störungen l.(DX,DY,DZ) und höherer Ordnung durch den Mond, und 
C Korrekturen der Initialwerte und des Fundamentalsystemes . 
C Bei IFM=0 bzw=l sind bei der Integration die Störungen des Mondes 
C überhaupt nicht bzw. nur auf den Zusatzkörper berücksichtigt worden, 
C bei IFM=2 auf alle Körper einschließlich des Baryzentrums . Nachfol- 
C gende Korrekturen in das FK5-System gelten bei Verwendung der Initial- 
C werte von Izvekov (Newcombs Theorie, Standardkoordinaten) bei IFM=0 
C oder =1, bzw. von DE102 von Standish bei IFM=2 (isotrope Koordin.). 
C Falls Erde mitintegriert wird (NP1.GT.4), keine Korr. der Erdkoord. 
C A mittl .Anomalie des Mondes, E mittl. Länge d.Erde, D Elongation Mond-Sonne, 
C G Differenz Sonne-Mondknoten. 

CALL MOND(T,DX,DY,DZ) 



X=XO-DX 

Y=YO-DY 

Z=ZO-DZ 

T1=T-2415020.D0 

TE=Tl/36525.-.5 

E=AMOD( 99.6967+ 0.98564734*T1,360. ) *RR 

IF(IFM.EQ.2 .0R.NP1.GT.4)G0T01 

A=AMOD(296 .104 6+13. 06499245*T1, 360. ) *RR 

D=AMOD( 3 50. 7375+12 . 19074919 *T1, 360. ) *RR 

G=AMOD( 20.5134+ 1.03860126*T1,360. )*RR 

V=AMOD( 59.3203+ 0.00393428*T1,360. ) *RR 
C Mondstörungen auf das Baryzentrum nach Bretagnon, sowie Korrektur 
C von Perihellänge, Exzentrizität und Schiefe der Ekliptik 

DK=.01165*SIN(E)+.00178*SIN(2.*D-E)-. 1 1 143- . 1 199*TE 

DH=.01165*COS(E)-.00178*COS(2.*D-E)+. 16 153- . 09834*TE 

DL=2.*(SIN(E)*DH-COS(E)*DK)+.00304*SIN(2.*D)-.00118*SIN(2 . *D-A) 
+.00104*SIN(V) 

DR=-(COS(E)*DH+SIN(E)*DK+.00196*COS(2 . *D)-. 015565) /206264.8E-9 

DB=.0196*SIN(G)-.0249*SIN(E) 
C Korrektur von Newcombs mittleren Länge der Sonne und der Distanz Erde-Sonne 
C Bei Verwendung von ET: DL=- . 0150+. 1050*TE (n.W.Fricke) 

C Bei Verwendung von TAI: DL=+. 1214- . 1807*TE ( n.Oesterw. ,DE96 u.Lening.) 
C Bei Verwendung von TDB: DL=+. 0527- . 2627*TE (n.DE102) 
C Aus Vgl. mit DE102 DR=-25.39, Korr. wegen dessen dL/dT +1.35 
C und wegen Diff. Standardkoordinaten - isotrope +9.87 = insg. -14.17 
C Angen. wurde letztes und vorletztes Ergebnis fuer DL m. Gewicht 6:1. 

DR=DR-14.1 

DRA= . 

DL=DL+.06 3-.251*TE 

GOT02 

1 CONTINUE 

C Korrekturen notw. für DE102 nach FK5 : 1) von Radarsystem in FK4-ähnl .Syst . 

C dk=-.7598, dn +.2892 (aus Lösung V.DE102) entspricht DL=+.7267*TE 

C plus DRA=-1.4265*TE, 2) FK4-ähnl.Syst. nach FK4-System gemäß 

C Rotationsmatrix n.Standish (s.Cel.Mech. ), entspricht 

C genähert DL=+ . 2922 ,DRA=- . 9535 (und DEPS=- . 0013 ) , 3) von FK4 nach 

C FK5 also DL=-1.10*TE plus DRA= . 5250+1 . 245*TE , gibt insgesamt 

C FK5-DE102: DL=+.2922-.3733*TE und DRA=- . 4285- . 1815*TE 

C Aber wer verwendet heutzutage noch DE102 ? 

C Korrekturen für DE119/200 (genaugenommen DRA=0 . 0035" ) : 

DRA= .0 

DB=.0 

DR=.0 

DL=+.00-0.00*TE 

2 CONTINUE 

CALL EKLAEQ(Y,Z,-EPS,Y1,Z1) 

CALL RECPOL(X, Yl , Z 1 , R, EB, EL ) 

CALL POLREC(EL+DL/2 62 64.8,EB+DB/2 062 64.8,R+DR*1.E-9,X,Y1,Z1) 

CALL EKLAEQ(Y1,Z1,EPS,Y,Z) 

CALL RECPOL(X, Y,Z,R,EB,EL) 

CALL POLREC(EL+DRA/2 62 64.8,EB,R,X,Y,Z ) 

RETURN 

END 

SUBROUTINE MOND ( T, X, Y, Z ) 

SAVE 

EXTERNAL AMOD, DMOD, SIN, COS 

DOUBLE PRECISION DMOD 

DOUBLE PRECISION X, Y, Z , Y0 , Z0 , T , Tl , A0 , B0 , CO , DO , SO , V0 

REAL X00(6,58),X1(120),X2(120),X3(108) 

EQUIVALENCE (X00(1,1),X1(1)),(X00(1,21),X2(1)),(X0 0(1,41),X3(1)) 

DATA RR,RM /. 1745329252 ,. 0002908882 / 
C Berechnung der rechtwinkliken äquatorialen geozentrischen Koordinaten- 
C differenz Baryzentrum-Erdmitte nach der Mondtheorie von Delaunay. Einheit 
C der Terme für Länge und Breite 1 ' , f ür Parallaxe 1", Äquinoktium 1950.0 . 
C A=Mittl. Anom. des Mondes, B=Mittl . Anom. der Erde, C=Argument der Breite 
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T3=SNGL(T-24332 82.4D0)*RM 

AO=2 96.104 608DO+13.0 64 9 924 4 65DO*T1+6.8 8 9D-12*T1*T1 

BO=35 8.4 7 5833D0+ . 9856002670D0*T1 

C0= 11.250889D0+13.2293504490D0*T1-2.407D-12*T1*T1 

D0=350.737486D0+12. 190749 19 14D0*T1-1 . 076D-12*T1*T1 

S0=279.696678D0+ . 9856473354D0*Tl+0 . 2 2 7D-12*T1*T1 

VO=342.767O53D0+ 1 . 6021687039D0*T1 

A=SNGL(DMOD(A0,360.D0) ) *RR 

B=SNGL(DMOD(B0,360.D0) ) *RR 

C=SNGL(DMOD(C0,360.D0) ) *RR 

D=SNGL(DMOD(D0,360.D0) ) *RR 

S=SNGL(DMOD(S0,360.D0) ) *RR 

V=SNGL(DMOD(V0,360.D0) ) *RR 

DL=.0 

DP=3422.7 

DB=.0 

D01I=1,34 

ARG=X00( 1,I)*A+X00(2,I)*B+X00(3,I) *C+X00(4,I)*D 

DL=DL+X00 ( 5 , I ) *SIN ( ARG ) 

DP=DP+X00 ( 6,1) *COS ( ARG ) 

1 CONTINUE 
C1=C+DL*RM 

AL=S+D+(DL-7.6*SIN(2.*C1) ) *RM 
D02I=35,58 

ARG=X00( l,I)*Cl+XO0(2,I)*C+XO0(3,I)*A+X00(4,I)*B+XOO(5,I)*D 
DB=DB+X00 ( 6 , I ) *SIN ( ARG ) 

2 CONTINUE 

C Planetenstörungen 

AL=AL+( . 2*SIN(A+16.*S-18.*V+2.8)-.3*SIN(8.*V-13.*S) 
+. 1*SIN(AL-C) )*RM 

AB=(DB+.03*COS(AL-C+C1)-. 16*SIN ( AL-C+Cl ) ) *RM 
C Präzession nach 1950.0 

AL=AL-( .0022937+. 00002 15*COS(AL+. 0966 )*AB)*T3 

AB=AB-. 00002 15*SIN(AL+. 0966 )*T3 

CALL POLREC(AL*l.D0,AB*l.D0, . 106858496587D0/DP , X, Y0 , Z0 ) 

CALL EKLAEQ(Y0,Z0, . 40920625D0 , Y , Z ) 

RETURN 

END 

SUBROUTINE MOND1 (Nl ,N2 , E , T ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

DOUBLE PRECISION M 
C Berechnet das Dipolmoment des Erde-Mond-Systemes auf die Körper Nl bis N2 . 
C X0(K, 1 ) ,X0(K,2 ) Koordinaten von Erde und Mond, XM Differenz Baryz.-Geoz. 

PARAMETER (LN=2 7 ,LN3=3*LN ) 

EXTERNAL DSQRT 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) /MASSE /M(LN) 

COMMON/BAND1/NP1 , IBAND,NP0 , XM( 3 ) 

DIMENSION X0(3,2) ,D(2,LN) , E ( LN ) ,DI(3,LN) 

DATA V1,V3,V4 /81.300587D0, . 9878494 18376566D0 , .012150581623434D0/ 

DATA DI /LN3*.0DO/ 

IF(NP1.LE.2 )CALL MOND(T,XM( 1 ) , XM( 2 ) , XM ( 3 ) ) 

D07K=1,3 

X0(K, 1)=X(K,4)-XM(K) 

X0(K,2)=X(K,4)+XM(K)*V1 
7 CONTINUE 

D( 1, 1)=DSQRT(X0(1, 1)**2+X0(2, 1)**2+X0(3,1)**2)**3 

D(2, 1)=DSQRT(XO(1,2)**2+X0(2,2)**2+X0(3,2)**2)**3 

D01I=N1,N2 

D02L=1,2 

D(L,I)=(X( 1,I)-X0( 1,L) )**2+(X(2,I)-X0(2,L) )**2+(X(3,I)-X0(3,L) )**2 

D(L,I)=D(L,I)*DSQRT(D(L,I) ) 
2 CONTINUE 
1 CONTINUE 
C Dipolterme im Inertialsystem (Summe gleich 0): 



D04K=1,3 

DI(K, 1)=(V3*X0(K, 1)/D( 1, 1)+V4*X0(K,2)/D(2, 1 ) -X(K, 4 ) /E ( 1 ) ) *M( 4 ) 

DI(K,4)=DI(K,1)*M( 1) 

D03I=N1,N2 

IF(I.EQ.4)GOT03 

DI(K,I)=(V3*(X0(K,1)-X(K,I) ) /D( 1,I)+V4*(X0(K,2)-X(K,I) )/D(2,I) 

-(X(K,4)-X(K,I) )/E(I) )*M(4) 
DI(K,4)=DI(K,4 )+DI(K,I)*M(I) 

3 CONTINUE 

C Falls Dipolmoment auf Erde berechn. w. muß, oben stets 2,N2 statt N1,N2 
C Falls nur beim Zusatzkörper der Mond zu berücksichtigen ist, soll auch 
C bei Masse >0 keine Reactio auf das Baryzentrum berücksichtigt werden. 

DI(K,4)=-DI(K,4)/M(4) 

IF(N1.EQ.N2 )DI(K,4 )=.0D0 

4 CONTINUE 
D06K=1,3 

DDX(K,4)=DDX(K,4)+DI(K,4)-DI(K, 1) 
D05I=N1,N2 

IF(I.EQ.4)GOT05 
DDX(K,I)=DDX(K,I)+DI(K,I)-DI(K, 1) 

5 CONTINUE 

6 CONTINUE 
RETURN 
END 

SUBROUTINE POLREC ( A, B, R, X, Y , Z ) 

IMPLICIT DOUBLE PRECISION ( A-H , 0-Z ) 
C Unterprogramm zum Berechnen von rechtwinkligen aus polaren Koordinaten. 
C A,B,R Azimuth, Höhe und Distanz, X,Y,Z rechtwinklige Koordinaten. 

EXTERNAL DSIN,DCOS 

SAVE 

X=R*DCOS ( B ) *DCOS ( A) 

Y=R*DCOS(B)*DSIN(A) 

Z=R*DSIN(B) 

RETURN 

END 

SUBROUTINE RECPOL ( U, V, W, R, A, B ) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 
C Programm zum Umformen von rechtwinkligen Koordinaten in Polarkoordinaten. 
C (U, V,W=rechtwinklige Koordinaten, A=Höhe, B=Azimuth, R=Distanz) 

EXTERNAL DMOD , DSQRT , DATAN 
C EXTERNAL DATAN2 

SAVE 

ZWEIPI=8.D0*DATAN( 1.D0) 

R=DSQRT ( U*U+V*V+W*W ) 

A=DATAN(W/DSQRT(U*U+V*V) ) 

IF(U.NE. .ODO.AND.V.NE. . 0D0 ) B=DMOD ( DATAN2 ( V, U ) +ZWEIPI , ZWEIPI ) 

RETURN 

END 

SUBROUTINE INVAL ( IEXZ , GK , AINT , EPOCHE , AMO , HALBA, EXZ , 
. PX , PY , PZ , QX , QY , QZ , TA , A , B , C , DA, DB , DC ) 

IMPLICIT DOUBLE PRECISION (A-H , 0-Z ) 
C Programm zur Berechnung von Ort und Geschwindigkeit aus den Elementen. 
C GK ist die Gaußsche Konstante incl. Planetenmasse (pro Tag) 
C Bei Bahnen unter bzw. über EXZ=0.8 ist AMO die mittl. 
C Anomalie resp. Zeit nach dem Periheldurchgang, HALBA 

C die große Halbachse bzw. Periheldistanz , EPOCHE die formale Epoche der 
C eingeg. mittl .Anomalie bzw. die Perihelzeit. Die Formeln für EXZ>0.8 
C gehen übrigens auch für EXZ<=0.8, aber stets nur bis E=90 Grad. 

EXTERNAL DSQRT, DCOS , DSIN 

SAVE 

U=1.D-15 

IF(IEXZ.EQ.l)GOT03 

PSY=GK/HALBA* * 1 . 5D0 
2 AM=AMO+( TA-EPOCHE )*PSY 

E=AM 



1 EV=E 

E=AM+EXZ*DSIN(E) 

IF(DABS(E-EV) .GT.U)G0T01 

X=HALBA* ( DCOS ( E ) -EXZ ) 

Y=HALBA*DSQRT( 1 . D0-EXZ**2 ) *DSIN ( E ) 

R=DSQRT(X*X+Y*Y) 

DX=-DSIN(E ) *PSY*HALBA**2/R*AINT 

DY=DCOS(E) *DSQRT(1.D0-EXZ**2)*HALBA**2/R*PSY*AINT 

GOTO 6 
3 CALL WA(DSQRT( ( 1 . DO+EXZ ) /HALBA) *GK/2 . D0/HALBA*AMO, 
. ( 1.D0-EXZ )/(l. DO+EXZ) ,V,0) 

R=HALBA*( 1 .DO+EXZ )/( 1 . DO+EXZ *DCOS ( V) ) 

X=R*DCOS(V) 

Y=R*DSIN(V) 

DX=-Y*GK/R/DSQRT ( HALBA* ( 1 . DO+EXZ ) ) *AINT 

DY= ( X* ( 1 . DO-EXZ ) +EXZ *HALBA ) *DSQRT ( ( 1 . DO+EXZ ) /HALBA ) *GK/R*AINT 
6 A=PX*X+QX*Y 

B=PY*X+QY*Y 

C=PZ*X+QZ*Y 

DA=PX*DX+QX*DY 

DB=PY*DX+QY*DY 

DC=PZ*DX+QZ*DY 

RETURN 

END 

SUBROUTINE EKLAEQ ( Y, Z , EPS , YO , ZO ) 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 
C Programm zum Umrechnen von ekliptikalen Koordinaten in äquatoriale. 
C EPS ist die Schiefe der Ekliptik. 

EXTERNAL DCOS,DSIN 

SAVE 

Y0=Y*DCOS(EPS)-Z*DSIN(EPS) 

Z 0=Y*DSIN ( EPS ) +Z *DCOS ( EPS ) 

RETURN 

END 

SUBROUTINE GRADB (R, ISIG, IA, IB , A) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 

SAVE 

CHARACTER*1 ISIG 
C Hilfsprogramm zur Umrechnung von rad in Grad, Minuten und Sekunden 

IF(R.GE. .0)ISIG='+' 

IF(R.LT. .0)ISIG=' -' 

WK=DABS(R) /6. 2 83185307 179586D0 

WG=(WK-IDINT(WK) )*360.D0 

IA=IDINT(WG) 

IB=IDINT( (WG-IA)*60.D0) 

A=( (WG-IA)*60.D0-IB)*60.D0 

RETURN 

END 

SUBROUTINE INOBS ( I , TZ , DT , IRW , NRBV , IBVO , NGLEI , IEND ) 
CUNI VIRTUAL /BEOB/, /GEWI/, /BEI/, /STERNW/ 

IMPLICIT DOUBLE PRECISION (A-H, O-Z ) 

EXTERNAL DSQRT, DCOS , DSIN, DTAN 

PARAMETER (LU=16 ,LU1=LU+1 , LST=200 , LBE=500 ) 

CHARACTER* 1 10 , ICO , IDO , IDP , IBO , IEO , IPO , ILO , IC , IET 
CUNI CHARACTER*4 KARTE(20) 

CHARACTER* 80 KARTE 

CHARACTER*4 ISTRIN, ISTR1 , ISTR2 , ISTR3 

CHARACTER* 1 IFK5 , ISG, ITR,NOTE , IX, IY, IZ 

COMMON/EQUIN/EQ/XYZ/IFXYZ 

COMMON/STERNW/RHO(LST) ,THE(LST) ,PHI(LST) ,NSTWT(LST) 

COMMON/NV/IFO,NG6,IFEST(LU1) /UNB/MO , IBZ ,NG6IBZ 

COMMON/BEOB/TOBS(LBE) ,RA(LBE) ,DEKL(LBE) , DX ( LBE ) , DY ( LBE ) ,DZ (LBE) , 
. NTOBS ( LBE ) , IART ( LBE ) 

COMMON/GEWI /P ( 2 , LBE ) 

COMMON/BEl/ISTRIN(LBE,3) 



DIMENSION GEW (10) 

SAVE 

DATA GEW /1.0DO,0.8DO,0.6DO,0.4DO,0.2DO,O.ODO,2000.DO,3*O.ODO/ 

DATA IC0,ID0,IDP,IB0,IE0,IP0,IL0 /' C ',' D ' ,':',' B ',' E ',' P ',' L ' / 

DATA IX,IY,IZ,I0 / 'X' , ' Y' , ' Z ' , ' '/ 

DATA IERR,RR0 /0 , 206264 . 806247 1D0/ 
C Programm zum Einlesen der Beobachtungen des zusätzlichen Körpers. 
C NSTW ist die Gesamtzahl aller vorkommenden Sternwarten. 

C NGLEI ist am Schluß die Zahl der Bedingungsgleichungen mit Gewicht ungleich 
C Null abzüglich der Zahl der Unbekannten. NSTWT(J) ist die MPC-Nummer der 
C J-ten Sternwarte, ISTW die der zur Beobachtung gehörenden Sternwarte. 
C Bei IFK5=1H* Beob.bzgl.FK5-System, IFK5=1HD dif f erentiell (Mond 
C e. Planeten), dann Rekt . in '," und mit cos(Dekl.) behaftet. 
C Bei IFK5 = 1HP Beob. im FK4-Syst. aber um Rot . (Präz . ,Äq. )bis 1950 korr. 
C Bei IFK5=1HL Beob. im FK4-Sysy. aber um lokale Fehler korr. 
C Eingabe der Gewichte beider Koordinaten durch zwei Ziffern IRA0,IRA 
C sodaß Gewicht = GEW( IRA+1 ) * ( 10**-IRAO ) u.dgl. für IRD,IRD0. 
C ITR=1HP, 1HB, 1HE falls Gewichte auf Koordinatenrichtung Sonne, 
C scheinbare Bewegung oder Ekliptiksystem bezogen sind ( s .SUBR.DEDAEO ) 
C ITR=1HX, 1HY, 1HZ falls als Beob. die betr. heliozentr. Koordinate 
C XYZ und ihr mittlerer Fehler SIGXYZ eingegeben wird (beide in km) 
C Dann wegen Ausdruck d. Residuais in km ( SUBR.OUTRES ) interne Einh. RRO km 
C Bei IET=1HE wird die Beobachtungszeit in ET eingegeben. 
C Wenn VIRTUAL richtig funkt., oben YANF1 und PARAM. weg. 

1 = 

CALL INSTW(NSTW) 

IF(NSTW.EQ.0)GOTO5 

WRITE(6,6)NINT(EQ) ,NINT(EQ) 
6 FORMAT ( //, IX, '<ESC! 145>' , 'Beobachtungen: ■ , '<ESC!2 0>' , /,7 0X, 
. 'Parallaxe' , 16X, 'Gewicht' , / ' Nr . ' , 7X, ' t (UT) ■ , 11X, ' RA( ' , 14 , ' ) ' , 
. 4X, 'Dekl( ' ,14, ' ) ' ,3X, 'Stw. ' , 6X, ' dX ' , 10X, ' dY ' , 10X, ' dz ' , 
. 6X, 'pR' ,4X, 'pD' ,7X, 't( JD,ET) ' ,7X, 'FK5-FK4 ' , '<ESC!4>' , /) 

1 READ (5,40) KARTE 
4 FORMAT (A80) 

CUN4 FORMAT ( 2 0A4) 
CUNI DECODE (8 0,41, KARTE ) ITR 
READ ( KARTE , 4 1 ) ITR 

41 FORMAT (7 IX, AI) 
IF(ITR.EQ.IX.OR.ITR.EQ.IY.OR.ITR.EQ.IZ ) 

. READ ( KARTE , 32 ) IC , IART0 , IET , JAHR , MONAT , DATUM, XYZ , SIGXYZ 
CUNI . DECODE (80,32, KARTE ) IC , IART0 , IET , JAHR , MONAT , DATUM, XYZ , SIGXYZ 
3 2 FORMAT (AI, 12X,I1,A1,I4,I3,D10.6,F15.2,F10.2) 
IF(ITR.EQ.IX.OR.ITR.EQ.IY.OR.ITR.EQ.IZ )GOT042 
CUNI DECODE (80,2, KARTE ) IC , IART0 , IET , JAHR , MONAT , DATUM, IFK5 , IA, IB , R , ISG , 
READ (KARTE, 2 ) IC , IART0 , IET, JAHR, MONAT , DATUM, IFK5 , IA, IB , R, ISG, 
JA, JB,D, ITR, IRA0,IRA,IRD0,IRD, ISTW 

2 FORMAT (AI, 12X,I1,A1,I4,I3,D10.6,A1,I2,I3,D7.3,A1,I2,I3,D6.2, 

14X,A1,4I1,I4) 

42 IF( JAHR.EQ.0)GOTO5 
IF ( IC . NE . ICO ) GOT015 

2 WRITE(6, 17 ) JAHR, MONAT, DATUM, IA,IB,R, ISG, JA, JB,D, ISTW 

17 FORMAT(5X,I4,I3,F10.6,2X,I2,I3,F7.3,2X,A1,I2,I3,F6.2,I5) 

GOTOl 
15 IF(IC.EQ.ID0)GOTOl 
1 = 1 + 1 
IART(I)=0 

IF(IART0.EQ.5.OR.IART0.EQ.4.OR.IART0.EQ.8.OR.IART0.EQ.9)ISTW=5 EROS 
IF ( IART0 . EQ . 5 . OR . IART0 . EQ . 6 . OR . IART0 . EQ . 8 ) IART ( I ) =1 EROS 

IF ( I . GT . LBE ) GOT018 

WRITE(ISTR1,9) 100 *MOD( JAHR, 100)+MONAT 
CUNI ENCODE(4,9,ISTR1)100*MOD( JAHR, 100)+MONAT 
CHON ENCODE ( ISTRIN ( I , 1 ) , 9 ) 100*MOD ( JAHR, 100 ) +MONAT 
9 FORMAT) 14) 

CALL JD2 ( JAHR* 1000 0. D0+MONAT* 100. D0+DATUM,T) 
IXYZ=0 



IF ( ITR . NE . IX .AND . ITR . NE . I Y . AND . ITR . NE . IZ ) G0T03 1 

IFXYZ=IFXYZ+1 

IXYZ=1 

RA(I)=XYZ/RRO 

P( 1,I)=1.D0/SIGXYZ 

DEKL(I)=.ODO 

P(2,I)=.0D0 

NGLEI=NGLEI+1 

NOTE=I0 

GOTO30 
31 CONTINUE 

CALL WINKEL( '+' , IA, IB, R, RAO ) 

CALL WINKEL(ISG, JA, JB,D, DEKLO) 

IF(IFK5.EQ.I0)CALL FK ( T, RAO* 15 . DO , DEKLO ,RA( I ) ,DEKL(I) , 1) 

IF(IFK5.EQ. IPO) CALL FK ( T, RAO* 15 . DO , DEKLO , RA( I ) ,DEKL(I) ,2) 

IF(IFK5.EQ. ILO) CALL FK ( T, RAO* 15 . DO , DEKLO , RA( I ) ,DEKL(I) ,3) 

IF(IFK5.EQ.ID0)RA0=RA0/15.D0 

IF(IFK5.NE.I0.AND. IFK5 .NE . IPO . AND . IFK5 .NE . ILO ) RA( I ) =RAO* 15 .DO 

IF ( IFK5 . NE . 10 . AND . IFK5 . NE . IPO . AND . IFK5 . NE . ILO ) DEKL ( I ) =DEKLO 

IF ( IRAO . EQ . 9 ) IRAO=- 1 

IF(IRD0.EQ.9)IRD0=-1 

IF ( IRAO . EQ . 8 ) IRA0=-2 

IF(IRD0.EQ.8)IRD0=-2 

IF(ITR.EQ.IO)ITR=IDP 

P( l,I)=DSQRT(GEW(IRA+l)/( 10. DO** IRAO) ) 

P(2,I)=DSQRT(GEW(IRD+l)/( 10.DO**IRDO) ) 
C Falls RA,Dekl.oder beide unbenutzt, ist ein R,D oder X im Ausgabestring. 
C Falls nur eine Koordinate P=0 hat, diese wenigstens genähert eingeben. 

NOTE=I0 

IF(P( 1,1) .LT.1.D-10)NOTE='R' 

IF(P(2,I) .LT.1.D-10)NOTE='D' 

IF(P( 1,1) .LT.1.D-10.AND.P(2,I) .LT. 1 . D-10 )NOTE= ■ X ■ 

IF(P( 1,1) .GE.1.D-10)NGLEI=NGLEI+1 

IF(P(2,I) .GE.1.D-10)NGLEI=NGLEI+1 
30 CONTINUE 

IF ( IET . NE . IEO ) TOBS ( I ) =T+DTET ( T ) 

IF(IET.EQ.IE0)TOBS(I)=T 

IF ( IET . EQ . IEO ) T=T-DTET ( T ) 

NTOBS ( I ) = ( TOBS ( I ) -TZ ) /DT 

IF(NTOBS(I) .LT.0)IRW=I 

NTOBS(I)=IABS(NTOBS(I) )+l 

IF(NTOBS(I) .LT.6)NTOBS(I)=6 

IF ( IRW . EQ . I ) NTOBS ( I ) =-NTOBS ( I ) 
C Falls das Eingeben einer Sternwarte vergessen wurde, oder die Beobach- 
C tungen in falscher Reihenfolge eingegeben wurden, anhalten. 

IF(I.EQ. 1JGOT016 

IF(NTOBS(I) . GE. NTOBS (1-1) (GOT016 

WRITE(6, 10)1 

IERR=1 
C CALL STOP 

GOTO2 

18 WRITE(6,19) 

19 FORMAT(/' Es wurden zuviele Beobachtungen eingegeben.',/, 

1 Programm wird abgebrochen.'/) 
CALL STOP 
16 CONTINUE 

IF ( IXYZ . NE . ) GOT033 
C Feststellung der zugehörigen Sternwarte 
J=0 
3 J=J+1 

IF ( J . LE . NSTW ) GOT07 
WRITE(6, 12)1 
IERR=1 
C CALL STOP 
GOTO2 



7 IF(NSTWT( J) .NE.ISTW)G0T03 

12 FORMAT(/' Zu der ' ,14, ' -ten Beobachtung wurde die Sternwarte nicht 
. eingegeben . ' / ) 

10 FORMAT(/' Die',I4,'-te Beobachtung wurde in falscher Reihenfolge 
. eingegeben . ' / ) 

CUNI ENCODE(4,8,ISTR2 ) IDINT ( DATUM/10 ) ,MOD ( IDINT ( DATUM) ,10) ,ITR, 
WRITE(ISTR2,8)IDINT(DATUM/10) ,MOD ( IDINT ( DATUM) ,10) ,ITR, 
ISTW/100 

8 FORMAT (211, AI, II) 

CUNI ENCODE(4, 1 1 , ISTR3 )MOD ( ISTW, 100 ) /10 , ISTW-10* ( ISTW/ 10 ) ,IFK5,NOTE 
WRITE(ISTR3, ll)MOD(ISTW, 100 ) /10 , ISTW-10* ( ISTW/ 10 ) ,IFK5,NOTE 

11 FORMAT (211, 2 AI) 
GOT044 

3 3 CONTINUE 

CUNI ENCODE(4,8 8,ISTR2 ) IDINT ( DATUM/ 10 ) , MOD ( IDINT ( DATUM) ,10) ,ITR, 
WRITE(ISTR2, 88) IDINT (DATUM/10) , MOD ( IDINT ( DATUM) ,10) ,ITR, 
. 10 
8 8 FORMAT (211, 2 AI) 
CUNI ENCODE (4,89, ISTR3 ) I , I , IFK5 , NOTE 
WRITE ( ISTR3 ,89)10,10, IFK5 , NOTE 
89 FORMAT (4 AI) 

4 4 CONTINUE 

C sobald VIRTUAL richtig funktioniert, nachf. direkt in ENCODE Stmt. setzen CUNI 

ISTRIN(1, 1 )=ISTR1 

ISTRIN(I,2 )=ISTR2 

ISTRIN(I,3)=ISTR3 

IF ( IXYZ . NE . ) GOT034 

CALL STERNZ (T,STZ ) 

STZ=STZ+THE( J) 
C Ortssternzeit incl. Präzession bis EQ 

TE=(TOBS(I (-24332 82. DO )/365.25D0 

THEEQ=STZ- 

(2.235D-4+.972D-4*DSIN(STZ-l.lD-4*TE)*DTAN(PHI( J) ) )*TE/2 .DO 

PHIEQ=PHI( J) -0.9 72D-4*DCOS (THEEQ) *TE 

THEEQ=STZ- 

(2.2 3 5D-4+.972D-4*DSIN(THEEQ)*DTAN( ( PHI ( J ) +PHIEQ ) /2 . DO ) ) *TE 

DX ( I ) =RHO ( J ) *DCOS ( PHIEQ ) *DCOS ( THEEQ ) 

DY ( I ) =RHO ( J ) *DCOS ( PHIEQ ) *DSIN ( THEEQ ) 

DZ(I)=RHO( J)*DSIN( PHIEQ) 

IF(ITR.EQ.IDP)ITR=I0 

RRA=(RA(I) /15.DO-RA0)*2 062 6 4.8DO 

RDE=(DEKL(I)-DEKL0)*2 62 64.8D0 

IF(IFK5.NE.ID0) 
. WRITE (6, 4 )MOD(I, 1000) , JAHR, MONAT, DATUM, IET, IA, IB, R, ISG, JA, JB,D, 
. ISTW,DX(I) , DY(I),DZ(I),P(1,I)**2,P(2, I)**2,ITR,TOBS(I) ,RRA,RDE 

4 FORMAT (14, IX, 14, 13, Fl 0.6, AI, IX , 12 , 13 , F7 . 3 , 2X, AI , 12 , 13 , F6 . 2 , 15 , 
. 3F12.8,2F6.2,1X,A1,F15.6,F7.3 / F5.2) 

IF(IFK5.EQ.ID0) 
. WRITE(6,45)MOD(I, 1000) , JAHR, MONAT , DATUM, IET, R, D, 
. ISTW,DX(I) ,DY(I) ,DZ(I) ,P( 1 , I ) **2 , P ( 2 , I ) **2 , ITR, TOBS ( I ) 
4 5 FORMAT (14, 1X,I4,I3,F10.6,A1,4X,F9.2,5X,F9.2,I5, 
. 3F12.8,2F6.2, 1X,A1,F15.6) 
GOTOl 

34 WRITE(6,35)MOD(I, 1000) , JAHR, MONAT, DATUM, IET, XYZ,SIGXYZ, 

ITR,TOBS(I) 

35 FORMAT (14, 1X,I4,I3,F10.6,A1,1X,F15.2,F10.2,2X,A1,5 3X,F15.6) 
GOTOl 

5 CONTINUE 

C Falls <2 Beob. vorh.und keine prov.Bahn, STOP, bei zu wenig Beob. keine Bahnv. 
C Falls keine prov.Bahn und nur so viele Beob. wie Unbekannte, max. 5 Bahnverb. 
IF ( NRBV . NE . - 1 . OR . I . GE . 2 ) GOTO 1 3 
WRITE (6, 14)1 
14 FORMAT(/' Es wurden nur ',14,' Beobachtungen und keine vorläufige 
.Bahn eingegeben. Programm wird abgebrochen. '/) 
CALL STOP 



13 CONTINUE 

IF ( IERR . EQ . ) GOT02 2 
WRITE(6,21 ) 

21 FORMAT(/' Fehler bei Eingabe der Beobachtungen,', 

1 daher wird Programm abgebrochen.'/) 
CALL STOP 

22 CONTINUE 
IF(IBV0.NE.0)CALL INFEST 
M0=NG6IBZ-IFEST(LU1) 
NGLEI=NGLEI-MO 

IF ( I . EQ . 2 . AND . NRBV . EQ . - 1 ) NGLE 1=0 

IF(NGLEI.LT.0)IBV0=0 

IF(IBV0.EQ.0)NRBV=101 

IF( (NGLEI.EQ.0.OR.NRBV.EQ.-1) . AND . IEND . EQ . 10)IEND=5 

RETURN 

END 

BLOCK DATA BDINOB 

SAVE 

COMMON/XYZ/IFXYZ 

DATA IFXYZ /0/ 

END 

SUBROUTINE STW(B,H,R,P) 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 
C Berechnet aus geographischen Koordinaten die parallaktischen Faktoren DXY,DZ 

EXTERNAL DSIN,DCOS 

SAVE 

P=B-(692.742994*DSIN(2.*B)-1.16329*DSIN(4.*B)+0.002592*DSIN(6.*B) ) 
. *(1.D0-0.1568D-6*H )/206264.806247 1D0 

R=0. 998327073044+0. 00 1676438278*DCOS( 2 . *P ) -3 . 518978D-6*DCOS ( 4 . *P) 
.+7.6 5 6E-9*DCOS(6.*P)+0. 1568E-6*H-2 . 51D-6*DSIN(P) 

R=R*6378. 139/149597870. 652 9 5 

RETURN 

END 

SUBROUTINE WINKEL ( ISIG, I , J , S ,W) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 

EXTERNAL DATAN 
C Rechnet Winkel von Grad, Minuten und Sekunden ins Bogenmaß um. 

SAVE 

CHARACTER*1 ISIG,ISIG1 

W=(I+J/6 0.D0+S/3600.D0)*DATAN( l.D0)/4 5.D0 

ISIG1='-' 

IF(ISIG.EQ.ISIG1)W=-W 

RETURN 

END 

SUBROUTINE INSTW(I) 
CUNI VIRTUAL /STERNW/ 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 
C Hilfsprogramm zum Einlesen der Sternwarten der Beobachtungen des Zusatzk. 
C J=1H* bzw IHR, falls geogr. Länge westlich positiv und in h,m,s 
C eingegeben wird, bzw. falls Länge in Grad, und DXY/DZ direkt. 

PARAMETER (LST=200) 

EXTERNAL DSQRT, DSIN, DCOS , DATAN 

CHARACTER*1 IS1 , IS2 , ISA, ISB , J 

CHARACTER*80 ITEXT 

CHARACTER*36 ITEXT1 
CUNI CHARACTER*4 ITEXT, ITEXT1 

CHARACTER*4 IT1,IT2 

COMMON/STERNW/RHO(LST) ,THE(LST) ,PHI(LST) ,NSTWT(LST) 
CUNI DIMENSION ITEXT ( 20 ) , ITEXT1 ( 9 ) 

SAVE 

DATA RR /.017453292519943296D0/ 

DATA IS1,IS2 / ' * ' , 'R' / 
3 FORMAT ( /, IX, '<ESC! 145>' , 'Vorkommende Sternwarten: ' , '<ESC!2 0>' , /, 
. ' Nr. ' ,8X, 'Länge' , 11X, 'Breite' ,8X, 'Höhe' ,8X, 'Länge' ,8X, 
. 'dxy ' ,8X, 'dz ' , 10X, 'Name' , '<ESC!4>' ,/) 



1 = 
2 READ(5,8)ITEXT 

8 FORMAT ( A8 ) 
CUNI8 FORMAT ( 2 0A4 ) 

READ(ITEXT, 18)IT1, IT2 
18 FORMAT (2 A4) 

IF(IT1.EQ.IT2 (RETURN 
CUNI IF ( ITEXT ( 1 ) . EQ . ITEXT ( 2 ) ) RETURN 

IF ( I . EQ . ) WRITE ( 6 , 3 ) 

1 = 1 + 1 
CUNI DECODE (4, 9, ITEXT )J, NR 

READ(ITEXT,9) J,NR 

9 FORMAT(Al,I3) 
NSTWT ( I ) =NR 

IF( J.EQ.IS2 )GOT05 
C Eingabe von geographischen Koordinaten 
CUNI DECODE (76, 1 , ITEXT ) ISA, IA, IB , R, ISB , JA, JB, D, ALT, ITEXT1 

READ ( ITEXT, 1) ISA, IA,IB,R,ISB, JA, JB,D, ALT, ITEXT1 
CUNI1 FORMAT(6X,Al,2I3,D9.5,Al,I2,I3,D8.4,D8.2,9A4) 
1 FORMAT(6X,Al,2I3,D9.5,Al,I2,I3,D8.4,D8.2,A36) 

CALL WINKEL(ISA,IA,IB,R,A) 

CALL WINKEL(ISB, JA, JB,D,B) 

IF( J.EQ.IS1)A=-15.D0*A 

THE ( I ) =A 

CALL STW(B,ALT,RHO(I) ,PHI(I) ) 

WRITE (6, 4) NR, J,ISA,IA,IB,R,ISB, JA, JB, D, ALT, A*57 . 29578D0 , 

RHO(I)*DCOS(PHI(I) )*l.D7,RHO(I) *DSIN(PHI(I) ) * 1 . D7 , ITEXT 1 

4 FORMAT ( IX, 13, 2X, AI, IX, AI , 213 , F8 . 4 , 2X , AI , 12 , 13 , F8 . 4 , F9 . 2 , 
CUNI . 2X,3(3X,F8.3) ,9A4) 

2X,3(3X,F8.3) ,A36) 
GOT02 

5 CONTINUE 

C Eingabe von rechtwinkligen Koordinaten 
CUNI DECODE(6 6,6,ITEXT)A,DXY,DZO,ITEXT1 

READ(ITEXT,6)A,DXY,DZ0,ITEXT1 
CUNI6 FORMAT (4X,3F10. 4, 8A4) 

6 FORMAT(4X,3F10.4,A32) 

WRITE ( 6 , 1 1 ) NR , J , A , DXY , DZ , ITEXT 1 
CUN11 FORMAT ( IX, 13 , 2X, AI , 43X, 3 ( 3X, F8 . 3 ) , 8A4 ) 
11 FORMAT ( 1X,I3,2X,A1,43X,3(3X,F8.3) ,A32) 

PHI(I)=.0D0 

IF ( DABS ( DZ ) . GT . 1 . D-5 . OR . DABS ( DXY ) . GT . 1 . D-5 ) PHI ( I ) =DATAN ( DZ /DXY ) 

RHO ( I ) =DSQRT ( DXY*DXY+DZ *DZ ) * 1 . D- 7 

THE(I)=A*RR 

GOT02 

END 

SUBROUTINE STERNZ(T0,S) 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 

EXTERNAL DMOD,DATAN 
C Berechnet die Greenwicher Ortssternzeit S zum Zeitpunkte T0 (in UT). 

SAVE 

T=(T0-2415020.)/36525. 

S=(DMOD( (8640184 .542D0*T+.0929D0*T*T)/86400.D0+DMOD(T0,l.D0) , 1.D0) 
+.7769194D0)*8.D0*DATAN( 1.D0) 

RETURN 

END 

SUBROUTINE INFEST 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 
C Falls bestimmte Elemente oder Linearkombinationen derselben bei der Bahn- 
C Verbesserung konstant gehalten werden sollen, wird hier diese Funktion 
C eingelesen. CKE(K,J) ist der Koeffizient des J-ten Elementes in der K-ten 
C konstant zu haltenden Funktion. Maximal sind bei z. Bsp. 10 bzw. 6 Unbekannten 
C 9 bzw. 5 solche Bedingungsgleichungen sinnvoll. CKE darf nicht Singulair 
C werden. Anstatt in den rechtwinkligen Koordinaten wird die Bahn- 
C Verbesserung dann in den durch CKE*E modifizierten Elementen durchgeführt, 



C und von ihnen ein Teil konstant gehalten. Welche dies sind, 

C gibt IFEST an ( = bzw 1 falls variabel oder konstant), die 

C Anzahl der festen ist IFEST(LUl), falls dies überhaupt der Fall ist, 

C ist IF0=1, ansonsten =0. Will man ohne festgehaltene Elemente die Bahn- 

C Verbesserung in den Kegelschnittelementen anstatt rechtwinkligen Initialwert 

C durchführen (IF0=1 aber IFEST ( LU1 )=0 ) , eine Leerkarte eingeben. 

C Die Bedingungen sind auf die jeweils ausgegebene Form der Elemente 

C bezogen einzugeben, brauchen also nicht erst noch umgerechnet zu werden. 

C IBZ Anz.d. Zusatzunbek. ,NG6IBZ u. MO Anz .d.Unbek.ohne bzw mit Abzug 

C von IFEST(LUl). Bei LU>24 FORMAT 9 und 14 erweitern. Die Umrechnungs- 

C faktoren GD zw. Maßeinheiten intern und bei Ein-/Ausgabe s.SUBR.INPUT 

SAVE 

PARAMETER (LU=16 ,LU1=LU+1 , LU2=LU-6 ) 

COMMON/NV/IF0 , NG6 , IFEST ( LU1 ) , CKE ( LU , LU ) /ANZAHL/N , NF , DG , DT 

COMMON/UNB/M0,IBZ,NG6IBZ/IO/GD(LU) 

DATA IEOF IUI 

READ(5, 1,END=2 ) (IFEST(L) ,L=1,LU) 

1 FORMAT(80I1) 
IF0=1 
D03K=1,NG6IBZ 

IF(IFEST(K) . NE. 0) IFEST ( LU1 ) =IFEST ( LU1 ) +1 

3 CONTINUE 
D04J=1,NG6IBZ 
D05K=1,NG6IBZ 

5 CKE(K, J)=.0D0 

4 CKE( J,J)=1 .0D0 
IF(NG6IBZ-IFEST(LU1) .EQ.0)GOTO6 
IF ( IFEST ( LU1 ) . EQ . ) RETURN 
WRITE(6, 14) (I, I=1,NG6IBZ) 

14 FORMAT(//' Folgende Linearkombinationen der Elemente werden'/, 
.' bei der Bahnverbesserung konstant gehalten:'//,' Element', 
.2(10112,/),' Faktoren:') 
C Bei mehr als 10 Unb. für jede Bedingung 2 Eingabekarten. 
D07K=1,NG6IBZ 
IF(IFEST(K) .EQ.0)GOTO7 

IF(IEOF.EQ.0)READ(5, 12 , END=2 , ERR=6 ) (CKE(K, J) , J=1,NG6IBZ) 
GOTO 19 
20 IEOF=l 
19 CONTINUE 
12 FORMAT ( 10D8. 5) 

WRITE(6,9) (CKE(K, J) , J=1,NG6IBZ) 
9 FORMAT) 11X,10(2X,F10. 6) ) 
C Umrechnung von CKE auf die verwendeten Einheiten (Winkel in rad usw) . 
D018J=1,NG6IBZ 
18 CKE(K, J)=CKE(K, J)*GD( J) 
7 CONTINUE 

CALL INV(CKE,NG6IBZ) 
C Jetzt ist CKE invertiert worden und somit die Ableitung der Kegelschnitt- 
C elemente nach den modifizierten. 

2 RETURN 

6 CONTINUE 

C An der Eingabe von CKE ist etwas falsch 

WRITE(6, 10 ) 
10 FORMAT(/' Bei der Eingabe von den konstant zu haltenden ', 
.'Funktionen ist ein Fehler passiert. Programm hält.') 

CALL STOP 

END 

SUBROUTINE COEFF (RA, DEK, D, CO ) 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 

EXTERNAL DCOS,DSIN 

SAVE 

PARAMETER ( LU=1 6 , LU1=LU+1 , LU6=LU- 6 ) 
C Programm zum Berechnen der Bedingungsgleichungen z .Bahnverbesserung. 

DIMENSION C0(3,LU) 

COMMON/NV/IF0 , NG6 , IFEST ( LU1 ) , CEK ( LU , LU ) , CXK ( LU , LU ) 



COMMON/UNB/MO, IBZ , NG6IBZ , B ( 2 , LU) , BO ( 2 , LU6 ) /EPHO/DEDAE ( 2 , 2 ) 
C CO ist die Ableitungsmatrix der 3 momentanen Koordinaten 
C nach den 6 Initialwerten, derart, daß C0(K,I) die Ableitung der K-ten 
C Momentankoordinate nach dem I-ten Initialwert ist. C ist die Ableitung 
C der J-ten Beobachtung in RA*cos(Dekl) und Dekl.nach dem I-ten Initialwert, 
C multipliziert mit der Wurzel des Gewichtes, B(1,I) und B(2,I) ist 
C die Ableitung von RA*cos (Dekl . ) und Dekl. ohne Wichtung. 

D01I=1,NG6 

B(1,I)=(C0(2,I) *DCOS ( RA ) -CO ( 1 , I ) *DSIN ( RA ) ) /D 

B(2,I)=(C0(3,I)*DCOS(DEK)-C0(2,I)*DSIN(DEK)*DSIN(RA) 
.-C0( l,I)*DSIN(DEK)*DCOS(RA) ) /D 
1 CONTINUE 

D09N=1,IBZ 

B( 1,NG6+N)=B0( l,N)*DCOS(DEK) 
9 B(2,NG6+N)=B0(2,N) 
C Falls Durchführung der Bahnverbesserung nicht in rechtwinkligen 
C Initialwerten, Transformation auf die betr. Unbekannten 

IF(IF0.NE.0)CALL CXKOO ( 2 ,NG6IBZ , B ) 

RETURN 

END 

SUBROUTINE DEDAE0(J,DT) 
CUNI VIRTUAL /BEOB/,/BEl/ 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Berechnet die Transformationsmatrix derjenigen Koordinaten, in welcher 
C die Bedingungsgleichungen {für die J-te Beobachtung) aufgestellt 
C werden sollen, zu den äquatorealen. DEDAE(I,K) Ableitung der I-ten 
C transformierten zur K-ten äquatorealen Koordinate. ITR gibt die Art der 
C transformierten Koordinaten an. Bei ITR=1H: Rekt. und Dekl. beibehalten, 
C ITR=1HE stattdessen ekliptikale Länge und Breite, ITR=1HP Positionswinkel 
C und Distanz zur Sonne (zur Elimination der Differenz Licht- zu Massen- 
C Schwerpunkt bei Kometen nur Pos.w. benutzen), ITR=1HB senkrecht und 
C längs der geozentrischen Bewegungsrichtung (bei schnelllaufenden 
C Objekten mit unsicheren Strichspurenden bzw. zugehöriger Zeit nur 
C Pos. senkrecht verwenden). DR, DD Variation von Rekt . *cos (Dekl . ) bzw. 
C Dekl. mit der zweiten der transformierten Koordinate. X,Y,Z helio- 
C zentr. Position, DX,DY,DZ relative geozentr. Geschwindigkeit des Körpers 
C Störender Einfluss einer Unbekannte, die nicht mit bestimmt werden 
C soll, läßt sich aus einzelnen Beobachtungen eliminieren durch 
C Multiplikation der ersten bzw. zweiten Bedingungsgleichung mit 
C B/DSQRT(A*A+B*B) bzw. -A/DSQRT ( A*A+B*B ) und Addieren, wobei A und B die 
C Koeffizienten der Unbekannten und die Wurzeln nötig wegen Normierung 
C bzw. Ausgleichsprinzip sind. Da Bedingungsgl . nicht jedesmal integriert 
C werden, müssen die DEDAE in diesem Fall für die betreffenden 
C NELIM Gleichungen in DRELIM, DDELIM abgespeichert werden 

PARAMETER (LN=27 ,LI=1 1 , LI0=LI- 1 ,LBE=500 ,LU=16 , LELIM=500 ) 

EXTERNAL DCOS,DSIN 

CHARACTER*1 IDP , IP , IB, IE , ID, ITR 

CHARACTER*4 ISTRIN,ISTR2 

COMMON /ANZAHL/N, NF/REL1/DXR( 3, LN) , IFVW 

COMMON/BEOB/T(LBE) ,R(LBE) , D ( LBE ) /BE1/ISTRIN ( LBE , 3 ) 

COMMON/EPHO /DEDAE ( 2 , 2 ) , X , Y , Z , RA, DE , DIST 

COMMON/EPHl/ZEIT,TE,T0,OX0(LI) ,OY0(LI) ,OZ0(LI) 

COMMON/UNB/MO, IBZ, NG6IBZ,B( 2, LU) 

COMMON/ELIM/NELIM, JELIM(LELIM) , DRELIM ( LELIM) , DDELIM( LELIM) 

DIMENSION DERDE(3) 

SAVE 

DATA IDP,IP,IB,IE,ID /':',' P ',' B ',' E ',' D ' / 

DATA CE,SE/.9174 36 9 6D0, .39788116D0/ 

ISTR2=ISTRIN( J,2 ) 
CUNI DECODE ( 3, 1 , ISTR2 ) ITR 

READ(ISTR2, 1)ITR 
1 F0RMAT(2X,A1) 

IF ( ITR . NE . IDP ) G0T02 
C Keine Transformation 
10 DR=.0D0 



DD=1.D0 
G0T08 

2 CONTINUE 
IF(ITR.NE.IP)GOT03 

C Variation von Rekt . und Dekl . mit der Winkeldistanz zur Sonne 

C (dann ist erste neue Koord. d.Posw. von Nord nach Ost, die zweite die 

C Elong. z . Sonne, sodaß bei Komet scheinb. z . Sonne hin negative Resid.sb.w.) 

DR=Y*DCOS ( RA ) -X*DSIN ( RA ) 

DD=Z*DCOS ( DE ) - ( X*DCOS ( RA) +Y*DSIN ( RA) ) *DSIN ( DE ) 

G0T08 

3 IF(ITR.NE.IB)G0T04 

C Variation von Rekt. und Dekl. längs zur geozentr. Bewegungsrichtung. An sich 
C Differenzen statt Geschwindigkeiten völlig ausreichend da Fehler von l.Ordn. 
C in den Beschleunigungen, diese jedoch f. Erde u. erdnahes Objekt fast gleich 
C DERDE Erdgeschwindigkeit, -DXO usw. Geschwindigkeit des Himmelskörpers 

CALL PLANET (4, ZEIT, TE, DT, 1 , DERDE ) 

CALL INT2 (LIO, 0X0(2) ,T0, DXO) 

CALL INT2(LI0,OY0(2) ,T0,DYO) 

CALL INT2 (LI0,OZ0(2) ,T0,DZO) 

DR=(DYO/DT+DERDE(2 ) ) *DC0S ( RA) - ( DXO/DT+DERDE ( 1) )*DSIN(RA) 

DD= ( DZO/DT+DERDE ( 3 ) ) *DC0S ( DE ) - 
( (DX0/DT+DERDE(1) )*DC0S(RA)+ 
(DY0/DT+DERDE(2 ) )*DSIN(RA) )*DSIN(DE) 

G0T08 

4 IF(ITR.NE.IE)G0T05 

C Variation in Richtung der ekliptikalen Breite 
DR=-DCOS(RA)*SE 

DD=DC0S ( DE ) *CE+DSIN ( DE ) *DSIN ( RA) *SE 
G0T08 

5 IF(ITR.NE.ID)G0T09 

C RA*cos(DE) ,DE bezogen auf mittl.Äq. des Datums statt auf 1950.0 

PR=( 2433282. 4 2 3D0-T(J) )*2.6 61D-7 

DR=PR*DSIN(RA)/DCOS(DE) 

DD=1.D0-0.5D0*(PR*DSIN(RA) /DCOS(DE) )**2 

GOT08 
9 CONTINUE 
C Elimination des IELIM-ten Elementes ( IELIM.LT. ) , wozu die neuen 
C Koordinaten entlang bzw. senkrecht zu seiner Variationslinie gelegt werden 
C (erste neue Koord. senkrecht, zweite entlang d.Var., sodaß die erste 
C neue Koord. nicht mehr das Element enthält und verwendet werden kann) 
CUNI DECODE( 1, 1 1 , ITR, ERR=10 ) IELIM 

READ(ITR, 11,ERR=10) IELIM 
11 FORMAT (II) 
C Erst Suche ob bereits berechnet 

IF ( IELIM. EQ.0)IELIM= 10 

DO13J0=l,NELIM 

13 IF( JELIM(JO) .EQ. J)GOT014 
C Muß berechnet werden 

NELIM=NELIM+1 

IF ( NELIM . GT . LELIM ) GOTOl 6 

DD=B(2,IELIM) 

DR=B( 1, IELIM) 

DDELIM(NELIM)=DD 

DRELIM(NELIM)=DR 

JELIM(NELIM)=J 

GOT08 

14 DD=DDELIM( J0) 
DR=DRELIM( J0) 
GOT08 

16 WRITE(6, 15)LELIM 

15 FORMAT ( ' Maximal darf bei ',15,' Beob.eine Unbekannte', 

1 eliminiert werden.',/,' Programm hält.'/) 
CALL STOP 
8 CONTINUE 

V=DSQRT(DR*DR+DD*DD) 



DEDAE( 1, 1)=DD/V 

DEDAE( 1,2)=-DR/V 

DEDAE(2, 1)=DR/V 

DEDAE(2,2)=DD/V 

RETURN 

END 

BLOCK DATA BDDE 

SAVE 

COMMON/ELIM/NELIM 

DATA NELIM 101 

END 

SUBROUTINE WA(Q,G,V,L) 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 
C Programm zur Berechnung der wahren Anomalie V aus EXZ . ,Periheldist . P 
C und Zeit T seit dem Perihel bzw. umgekehrt für alle Kegelschnitte. 
C Die Reihe f.EXZ>0.8 konvergiert nur für exzentr. Anomalien unter 90 Grad ! 
C Bei Berechnung von V(L=0): Q=GK*SQRT( ( 1 .DO+EXZ ) /P) /2 . D0/P*T, 
C G=( 1.D0-EXZ )/(l. DO+EXZ) 

C Bei Berechnung von T(L=1): Q wie oben aber ohne T, G wie oben, 
C Q ist am Ende dann die gesuchte Zeit nach dem Periheldurchgang, T. 

SAVE 

EXTERNAL DSQRT , DLOG , DS INH , DTANH , DS IN , DTAN , DASIN , DATAN 
CUNI DATA UNC /l.D-16/ $UNI,VAX 

DATA UNC /4.D-15/ $ATA 

IF(G*G.GT.3.D-3) GOT05 
C Parabelnahe Bahnen. Erste Annäherung erfolgt durch Auflösung der 
C Bakerschen Gleichung. 

IF(L.EQ.0)X=2.D0/DTAN(2.D0*DATAN(DTAN(DATAN(2.D0/3.D0/ 
.DABS(Q) )/2 .D0)**(1.D0/3.D0) ) )*Q/DABS(Q) 

IF(L.NE.0)X=DTAN(V/2.D0) 

IF(G*X*X.GT. . 5D0)GOTO5 

L0=0 

2 X0=X 
T=1.D0 
Y=X*X 

S=-( l.D0-2.D0*G)/3.D0*X*Y 
X=Q+S 
1 T=T+1.D0 

S=-S*(2.D0*T-l.D0)/(2.D0*T+l.D0)*G*(T-(T+l.D0)*G)/( ( T- 1 . DO ) -T*G ) *Y 

X=X+S 

IF ( T . GT . 50 . DO ) GOT05 

IF(DABS(S) .GT.UNC)GOT01 

IF(L.NE.0)GOTO3 

IF(L0.GT. 100)GOTO5 

L0=L0+1 

IF(DABS(X-X0) .GT.UNC)GOT02 

V=2.D0*DATAN(X) 

3 Q=(X0-X)/Q+1.D0 
RETURN 

5 CONTINUE 

C nicht genügend parabelnahe Bahn oder weit entfernter Ort auf der Bahn 

E=( l.D0-G)/(l.D0+G) 

PSY=2.D0*Q*DSQRT(DABS(G) )*( 1.D0-E) 

E1=0.0D0 

N=0 
C Bei L=0 (wahre Anomalie aus Zeit zu berechnen) ist PSY die mittlere Anomalie, 
C bei L=l (Zeit seit d. Perihel aus wahrer Anomalie ist zu berechnen) ist PSY 
C die mittlere tägliche Bewegung. 

IF(G.LT. .0D0)GOTO9 
C elliptische Bewegung 

IF(L.EQ.0)GOTO6 

El=2.DO*DATAN(DTAN(V/2.D0)*DSQRT(G) ) 

Q=(E1-E*DSIN(E1) )/PSY 

RETURN 

6 CONTINUE 



E1=PSY+E*DSIN(E1) 

IF(DABS(E1-X) .LE.UNC)G0T07 

X=E1 

N=N+1 

IF(N.GT.50)GOTOll 

GOTO 6 
7 V=2.D0*DATAN(DTAN(E1/2.D0) /DSQRT(G) ) 

RETURN 
9 CONTINUE 
C hyperbolische Bewegung 

IF(L.EQ.0)GOTO4 

XV=DABS(DTAN(V/2.D0) )*DSQRT(-G) 

El=DLOG( ( 1 .D0+XV)/( 1.D0-XV) ) 

Q=(E1-E*DSINH(E1) ) /PSY*DABS ( V) /V 

RETURN 
4 CONTINUE 

XV=(E1+DABS(PSY) ) /E 

El=-DLOG(XV+DSQRT(XV*XV+l) ) *DABS ( PSY) /PSY 

IF(DABS(E1-X) .LE.UNCJGOTOIO 

X=E1 

N=N+1 

IF(N.GT.50)GOTOll 

GOT04 

10 V=2.D0*DATAN(DTANH(E1/2.D0) /DSQRT(-G) ) 
RETURN 

11 CONTINUE 

C Weil sich die exzentrische Anomalie auf anderem Wege nicht ermitteln 

C ließ (sonnenferner Ort auf einer parabelnahen Bahn o.a.), wird sie jetzt 

C durch Probieren gesucht . 

N1 = 

SW=.001D0 

SIG=PSY/DABS(PSY) 

PSY=DABS(PSY) 

E1=SW 

F2=PSY 

13 CONTINUE 

IF(E.LT. 1.D0)F1=PSY-(E1-E*DSIN (El) ) 

IF(E.GT. 1.D0)F1=PSY+(E1-E*DSINH(E1 ) ) 

IF(F1*F2.LT. .0D0)GOTO12 

F2=F1 

E1=E1+SW 

IF(El.GE.5.D0)GOTO15 

GOTO 13 

12 CONTINUE 

C Die exzentr. Anomalie liegt zwischen El und El-SW. Beginn des Interpolierens . 
E2=E1-SW 

14 CONTINUE 
IF(Nl.GT.300)GOTO15 
N1=N1+1 

E0=E1+(E2-E1)*F1/(F1-F2) 
IF(DABS(E0-E1) .LT.UNC)GOT016 
IF(E.LT. l.DO)F0=PSY-(E0-E*DSIN (E0) ) 
IF(E.GT. 1.D0)F0=PSY+(E0-E*DSINH(E0) ) 
E2=E1 

F2=F1 
E1=E0 
F1=F0 
GOTO 14 
16 E1=E1*SIG 

IF(E.LT. l.D0)GOTO7 
IF(E.GT. l.D0)GOTO10 

15 CONTINUE 
WRITE(6, 19 ) 

19 FORMAT(' Die Berechnung der Anomalien aus der Zeit geht nicht.') 
CALL STOP 



END 

SUBROUTINE LSQ(N,M) 
CUNI VIRTUAL /KOEFF/ 

IMPLICIT DOUBLE PRECISION ( A-H, O-Z ) 

PARAMETER ( LU=1 6 , LU2=LU*2 , LU1=LU+1 , LBE=5 , LBE2=LBE* 2 ) 

COMMON/KOEFF/C(LUl,LBE2) 
C Programm zur Auflösung von linearen Gleichungssystemen nach der 
C Methode der kleinsten Quadrate (Quadrierung der Koeffizientenmatrix). 

C0MM0N/S0LUT/S(LU2 ) /UNB/MOO , IBZ 

COMMON/K2/D(LU1,LU1)/ERR/MERR,MERRO,IFKOKO 

SAVE 
C N ist die Anzahl der Gleichungen, M0=M-1 die der Unbekannten. 

C C ist die Matrix der Koeffiz.der Bedingungsgl . , D die der Normalgleichungen. 
C Auf D(M,M) ist anschließend die Quadratsumme d. Fehler bzw. linken Seiten. 

DATA IBGL 101 

D05I=1,M 

D05K=1,M 

D(I,K)=.0D0 
5 CONTINUE 

IF ( IBGL . EQ . ) GOT09 

WRITE(6, 101) 

101 FORMAT ( /IX, '<ESC!2 0>' , 

'Bedingungsgleichungen der Bahnverbesserung: ',' <ESC ! 4> '/ ) 
D07J=1,N 
D07K1=1,M,7 
K2=MIN(K1+6,M) 
WRITE(6, 104)J,(C(K,J) ,K=K1,K2) 

7 CONTINUE 
9 CONTINUE 

104 FORMAT) 15, 7 (1X,G17 . 10) ) 

D02J=1,N 

D02I=1,M 

D02K=I,M 

D(I,K)=D(I,K)+C(I,J)*C(K,J) 
2 CONTINUE 

D04I=1,M 

D04K=1,M 

D(K,I)=D(I,K) 
4 CONTINUE 

M0=M-1 
* IF(IBZ.EQ.0)GOTO8 

WRITE(6, 102 ) 

102 FORMAT) /IX, '<ESC! 20>' , 'Normalgleichungen der Bahnverbesserung:' 

, '<ESC!4>' /) 
D08J=1,M 

WRITE(6, 100)(D(J,I),I=1,M) 
100 FORMAT) 7 ( IX, G17.ll ) ) 

8 CONTINUE 
IF(MERR.EQ.2 (CALL MF0(M) 
CALL SOL(M0,IFKOKO) 

IF ( IBGL . EQ . ) RETURN 
WRITE(6, 103) 

103 F0RMAT(/1X, '<ESC!20>' , 'Ergebnis der Bahnverbesserung - ', 

'Korrekturen der Unbekannten und mittlere Fehler :',' <ESC ! 4> '/ ) 
WRITE(6, 100) (S(I) ,1=1, MO) 
WRITE(6, 100) (S(I) ,I=LU+1,LU+M0) 
RETURN 
END 

SUBROUTINE SOL (M, IFKOKO ) 
IMPLICIT DOUBLE PRECISION (A-H, O-Z) 
C Berechnet die Korrelationskoeffizienten zwischen den M Unbekannten. 
SAVE 

PARAMETER ( LU=16 ,LU1=LU+1 , LU2=LU*2 ) 
COMMON/K2/D(LU1,LU1)/SOLUT/X(LU2) 
DIMENSION V(LU,LU) 



CUNI 
CVAX 



EXTERNAL DSQRT 

D01I=1,M 

D01J=1,M 

1 V(I, J)=D(I, J) 
CALL INV(V,M) 

Lösungsvektor und Varianz 
D02I=1,M 
X(I)=.0D0 

X ( LU+I ) =DSQRT ( V ( I , I ) ) 
D02J=1,M 

2 X(I)=X(I)+V(I, J)*D( J,M+1) 
Neue Fehlerquadratsumme 

D03I=1,M 

3 D(M+1,M+1)=D(M+1,M+1)-D(M+1,I)*X(I) 
D04I=1,M 

D04J=1,M 

4 D(I,J)=V(I,J) 

IF ( IFKOKO . EQ . ) RETURN 
Ausdrucken 
WRITE(6,5) 

5 FORMAT( /IX, '<ESC!20>' , 

.'Varianzen (/206264.8) und Korrelationskoef f izienten: ' , ' <ESC ! 4> ' / ) 
WRITE(6,9) (X (LU+I )/206264. 806247 1D0,I = 1,M) 
9 FORMAT( 11( 1X,D10.5) ,///) 
D07I=1,M 

7 WRITE(6,6) (V(I, J)/X(LU+I)/X(LU+J) , J=1,M) 

6 FORMAT( 11( 1X,F10.7 ) ) 
RETURN 

END 

SUBROUTINE MFO ( M ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
Einlesen zusätzlicher Normalgleichungen und Hinzufügen zu den alten 
zwecks Fehleranalyse o.a., ohne die alten Gleichungen jedesmal neu 
durch Integration berechnen zu müssen, oder/und von a priori-Werten d. 
mittleren Fehler für die Unbekannten. Integrationsschrittweite 
und Epoche bei der Berechnung der einzulesenden Gleichungen müssen 
mit der gegenwärtigen übereinstimmen, ebenso die Unbekannten, hier 
wurden die Kegelschnittelemente (statt rechtw. Initialwerte) zzgl. 
A1,A2 und B gewählt. Lesen der Gleichungen von Kanal 14. 
Mehr als eine Bahnv. dann zwecklos da in den eingel. Gleichungen die 
neuen Residuais nur aus der Auflösung folgen. 
M-l Anzahl der Unbekannten 

PARAMETER (LU=16 ,LU1=LU+1 ) 

COMMON/NV/IFO/K2/C(LU1,LU1) , STAO/STIL/ISTIL, ITH 

COMMON /ANZAHL/NO, Nl, DO, DT/ ZUSK/TZ 

DIMENSION CO(LUl) 

SAVE 

DATA CO /LU1* . 0DO/ 

OPEN( 14,FILE=' 14 . ' ,MRECL=33) 

OPEN( 14,FILE=' 14 . ' , RECL=132 , STATUS= ' UNKNOWN ' ) 

OPEN( 14,FILE=' 14 . ' , STATUS= ' UNKNOWN ' ) 
Eingabe zusätzlicher Normalgleichungen 

READ( 14,8,END=9,ERR=10)ISTIL0,ITH0,IF00,TZ0,DT0 

8 FORMAT(3I2,F12 .3,F6.3) 
write(6,8)istil,ith,if 0,tz,dt 
IF(IF0O.EQ.IFO.AND.DABS(TZO/TZ-l.DO) .LT. 1 . D-8 . AND . ITH . EQ. ITHO . AND 

DABS(DT0/DT-1.D0) .LT. 1 . D-8 . AND . ISTILO . EQ . ISTIL ) GOTOl 

9 WRITE(6,2) 
2 FORMAT(/' Unbekannte, Epoche oder Schrittweite der zusätzlichen', 

./,' Normalgleichungen anders als gegenwärtig, daher ignoriert.'/) 
GOTO10 
1 CONTINUE 
WRITE(6,7) 

7 FORMAT('/ Eingelesene zusätzliche Normalgleichungen:'/) 
D03J=1,M 
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einige Unbekannte 
3 den bisherigen 



IF( J.NE.M) JO=J 
IF( J.EQ.M) JO=M 
READ( 14,4) (CO(I) ,I=1,M) 

4 FORMAT) 7 (G17.ll, IX) ) 
WRITE(6,6) (C0(I) ,I=1,M) 

6 FORMAT(7( IX, G17.ll) ) 
D05I=1,M-1 

5 C( J0,I)=C( J0,I)+C0(I) 
C( J0,M)=C(J0,M)+C0(M) 

3 CONTINUE 
C Eingabe vorgegebener Werte und mittl. Fehler für 
C IFNUR=1 falls nur diese Werte/mittl . Fehler (ohn 
C Bedingungsgl . ) verwendet werden sollen, sonst =0 

10 CONTINUE 
STA=1.D0/2 062 64.80 624 71D0 

1 3 READ (14,11, END=2 , ERR=2 ) I , IFNUR , WERT , FEHLER 

11 FORMAT(2I2,2D10.5) 
IF(I.GE.M)GOT013 
WRITE(6, 15)1, IFNUR, WERT, FEHLER 

15 FORMAT ( ' Vorgegebene Unbekannte: ■ , 212 , 2 ( 1X,D10 . 5 ) ) 
A=( STA/FEHLER/DT/DT )**2 
B=WERT*A 

IF( IFNUR. EQ.0)GOTO12 
D014J=1,11 
C(I, J)=.0D0 

14 C(J,I)=.0D0 

12 C(I,I)=C(I,I)+A 
C(I,M)=C(I,M)+B 
C(M,I)=C(I,M) 
GOTO 13 

2 CONTINUE 

WRITE(6, 102) 
102 FORMAT(/' Neue Normalgleichungen der Bahnverbesserung: 1 /) 

D018J=1,M 

WRITE(6,6) (C(J,I),I=1,M) 
18 CONTINUE 

RETURN 

END 

SUBROUTINE CXK0 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

PARAMETER (LU=16 ,LU1=LU+1 , LU2=LU*LU ) 
C Berechnung der Funktionalmatrix CXK(I,K) des I-ten rechtwinkligen Initial- 
C wertes nach der K-ten Unbekannte 

SAVE 

DIMENSION CXE(LU,LU) 

COMMON/NV/IFO,NG6,IFEST(LU1) ,CEK(LU,LU) ,CXK(LU,LU) ,CEX(LU,LU) 

COMMON/UNB/M0,IBZ,NG6IBZ/ZUSK/TZ 

EQUIVALENCE ( CEX ( 1 , 1 ) , CXE ( 1 , 1 ) ) 

D05I=1,NG6IBZ 
5 CXK(I,I)=1.0D0 

IF(IFO.EQ.O) RETURN 

CALL CEXO(TZ) 

CALL INV(CXE,NG6IBZ) 
C CXE ist jetzt die Ableitung der rechtwinkligen n.d. Kegelschnittelementen. 

D03K=1,NG6IBZ 

D03I=1,NG6IBZ 

CXK(I,K)=.0D0 

D04J=1,NG6IBZ 

CXK(I,K)=CXK(I,K)+CXE(I,J) *CEK ( J , K ) 

4 CONTINUE 
3 CONTINUE 

RETURN 

END 

BLOCK DATA BDCXK0 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
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SAVE 

PARAMETER (LU=16 ,LU1=LU+1 , LU2=LU*LU ) 

COMMON/NV/IFO , NG6 , IFEST ( LU1 ) , CEK ( LU , LU ) , CXK ( LU , LU ) 

DATA IFO, IFEST, CXK /0 , LU1*0 , LU2* . 0D0/ 

END 

SUBROUTINE MF1(I0,T) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER (LN=27 ,LU=16 , LU1=LU+1 ) 
C Berechnung der mittleren Fehler der Kegelschnittelemente. Bei 10=0 bzw. 1 
C für T=TZ (Oskulationsepoche der Bahnverbesserung) bzw. für eine andere Zeit 
C bei der anschließenden Integration. STAO mittl. Fehler einer 
C Bedingungsgleichung vom Gewicht 1 . 

DIMENSION F(LU) 

COMMON /EL /G(LU) , GF (LU ) /K2/C ( LU1 , LU1 ) , STA0/UNB/M0 , IBZ , NG6IBZ 

COMMON/NV/IFO, NG6, IFEST (LU1) ,CEK(LU,LU) ,CXK(LU,LU) ,CEX(LU,LU) 

COMMON /ANZAHL/N00 , NF/OG/X ( 3 , LN ) , DDX ( 3 , LN ) , DX ( 3 , LN ) 

DATA F /LU*.0D0/ 

CALL CEXO(T) 

IF(I0.EQ.0)GOTO3 
C Umrechnung von CEX auf die Elemente zur betr. Epoche 
C CEX(J,I) ist dabei die Abi. des j-ten moment .Elements z.i-ten Initw. 

D07J=1,6 

D08I=1,NG6 

F(I)=.0D0 

D08K=1,3 

8 F ( I ) =F ( I ) +CEX ( J , K ) *X ( K , NF+I ) +CEX ( J , K+3 ) *DX ( K , NF+I ) 
D09I=1,NG6 

9 CEX( J,I)=F(I) 
7 CONTINUE 

C Bezug auf die Unbekannten K der Bahnverbesserung (CEK=CEX*CXK) 

3 CONTINUE 
D01J=1,NG6IBZ 
M=0 
D02K=1,NG6IBZ 

IF( IFEST (K) .NE.0)GOTO2 

M=M+1 

F(M)=.0D0 

D04I=1,NG6IBZ 

4 F(M)=F(M)+CEX( J, I ) *CXK ( I , K ) 
2 CONTINUE 

C Mittlerer Fehler aus F(M)=dE( J) /dK(M) 

CALL MF2(M0,F,GF( J) ) 

GF( J)=GF( J)*STA0 
1 CONTINUE 

RETURN 

END 

SUBROUTINE MF2(M,F,F0) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER (LU=16 ,LU1=LU+1 ) 
C Berechnet den mittleren Fehler einer Linearkombination 
C FUNKTION=F( 1 ) *X( 1 )+F ( 2 ) *X( 2 ) +. . .+F(M)*X(M) der M in SOL berechneten 
C Unbekannten, bezogen auf den mittl. F .einer Beob.als Einheit. V Inv.d.Ngl. 

COMMON/K2/V(LUl,LUl) 

DIMENSION F(LU) 

EXTERNAL DSQRT 

W=.0D0 

D01I=1,M 

D01J=1,M 
1 W=W+F(I)*V(I, J)*F(J) 

F0=DSQRT(W) 

RETURN 

END 

SUBROUTINE CEXO(T) 



IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER (LN=27 ,LU=16 , LU1=LU+1 ) 

COMMON/EL/G ( LU ) , GF ( LU ) /K2 /C ( LU1 , LU1 ) /ANZAHL/N , NF , DG , DT 

COMMON/NV/IFO,NG6,IFEST(LU1) ,CEK(LU,LU) ,CXK(LU,LU) ,CEX(LU,LU) 

COMMON/OG/X ( 3 , LN ) , DDX ( 3 , LN ) , DX ( 3 , LN ) /UNB/MO , IBZ , NG6 IBZ 

COMMON/RELl/DXR(3,LN) , IFVW 

DIMENSION GO(LU) 
C Berechnet die Differentialquotienten CEX(J,I) des J-ten Kegelschnittelements 
C nach dem I-ten Initialwert für die Zeit T. 

DATA DIFF /l.D-8/ 

D09I=1,NG6IBZ 

D09J=1,NG6IBZ 

CEX(I, J) = .0D0 

IF(I.EQ. J)CEX(I, J)=1.D0 
9 CONTINUE 

CALL ELEM(NF,T,DT*IFVW,-1) 

D01J=1,6 

G0( J)=G(J) 

1 CONTINUE 
D02I=1,3 

X ( I , NF ) =X ( I , NF ) +DIFF 

CALL ELEM(NF,T,DT*IFVW,-1) 

D03J=1,6 

CEX( J,I)=(G( J)-G0( J) )/DIFF 

3 CONTINUE 
X(I,NF)=X(I,NF)-DIFF 

2 CONTINUE 
D04I=1,3 

DX ( I , NF ) =DX ( I , NF ) +DIFF 
CALL ELEM(NF,T,DT*IFVW,-1) 
D05J=1,6 

CEX( J,I+3)=(G( J)-G0( J) )/DIFF 
5 CONTINUE 

DX ( I , NF ) =DX ( I , NF ) -DIFF 

4 CONTINUE 

C Zurückeinsetzen der urspr .Elemente. 

D08J=1,6 

G( J)=G0( J) 
8 CONTINUE 

RETURN 

END 

SUBROUTINE OUTPUT ( T, I , DT ) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 

SAVE 

PARAMETER (LN=27 ,LI=1 1 , LI 1=LI+1 ) 
C Ausgabe der Integrationsergebnisse Ort/Geschwindigkeit bzw. oskul .Elemente 
C 1=1 bzw. 2: Nur Geschwindigkeiten bzw. Örter drucken, 1=3 beides, 
C 1=4 auch stanzen, 1=5 ggf. am Integrationsende (nur) stanzen 

COMMON/OG/X ( 3 , LN ) , DDX ( 3 , LN ) , DX ( 3 , LN ) /MASSE/AM ( LN ) /ERR/MERR 

COMMON /MATRIX/ Y( 3, LN, LH) 

COMMON/ANZAHL/N,NF,DGESCH/ZUSK/TZ/BANDl/NPl 

IF(I.EQ.5)GOT015 

IF ( TZ . EQ . . 0D0 ) GOT07 
C oskul .Elemente des Zusatzkörpers, ggf .m.mittl .Fehlern 

IF(MERR.NE.O)CALL MF1(1,T) 

CALL ELEM(NF,T,DT, 0) 

GOT05 
7 B=DGESCH/DT 

D04L=NP1,N 

IF(I.EQ.2)WRITE(6,2)T,L,Y( 1 , L, LI ) , Y ( 2 ,L,LI ) , Y ( 3 , L, LI ) 

IF(I.EQ. 1)WRITE(6, 1)T,L,DX( 1 , L ) *B, DX ( 2 ,L ) *B, DX ( 3 , L ) *B 

IF(I.GE.3)WRITE(6,3)T,L,Y( 1 , L, LI ) , Y ( 2 ,L,LI ) , Y ( 3 , L, LI ) , 
.DX(1,L)*B,DX(2,L)*B,DX(3,L)*B 
2 FORMAT ( 1X,F11.2,2X,I2,3(2X,F17.13) ) 



1 FORMAT ( 1X,F11.2,2X,5 8X,I2,3(2X,F17.13)) 

3 FORMAT ( 1X,F11.2,2X,I2,2(3(2X,F17.13),1X)) 

4 CONTINUE 
IF(I.LT.3)GOT05 
IPCH=(I-3)*10 
D06J=NP1,N 

6 CALL ELEM( J,T,DT,IPCH) 
IF(I.LT.4)GOT05 
C Ausstanzen der rechtw. Integrationsergebnisse im Eingabeformat f.d. Körper 
C 2-N, falls nur rechtw. Koord. integriert werden (TZ=0). 
15 IF(I.EQ.5)B=1000. DO/DT 
B2=B*B 

IF(I.EQ.5)WRITE(9,25)T, DATUM ( T ) 
25 FORMAT ( ' Initialwerte für Integrationsende: ' , F15 . 3 , 2X,F15 . 3 ) 
ID=I/5 

WRITE(9, 10,ERR=13) (Y( 1,L,LI) ,Y(2,L,LI) ,Y(3,L,LI) ,AM(L) *B2,L, 
. DX ( 1 , L ) *B , DX ( 2 , L ) * B , DX ( 3 , L ) *B , L , IDINT ( T ) , L=NP 1 - ID , 7 ) 

WRITE(9, 11,ERR=13) (Y( 1,L,LI) ,Y(2,L,LI) ,Y(3,L,LI) ,AM(L) *B2,L, 
.DX( 1,L)*B,DX(2,L)*B,DX(3,L)*B,L,IDINT(T) ,L=MAX (NP1 , 8 ) ,N-ID) 

10 FORMAT(3F16.13,G2 0. 16E1,I4,/,3F16.12,I4,I9) 

11 FORMAT(3F16.12,G2 0.16E1,I4,/,3F16. 13,14,19) 
IF(I.NE.5)GOT05 

13 IF(I.EQ. 5) RETURN 
WRITE(6, 14 ) 

14 FORMAT(/' Fehler beim Ausstanzen der Ergebnisse.',/, 
. ' Programm bricht ab.'/) 

CALL STOP 

5 1 = 
RETURN 
END 

SUBROUTINE OUTRES ( IOBS ,NGLEI , STA, NRBV, IBVO ) 
CUNI VIRTUAL /BEI/ , /BE2 /, /GEWI/ , /BEOB/ 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Ausgabe der Restfehler der Beobachtungen des Zusatzkörpers. 
C IRES=0: Restf. in RA*cos(Dekl) und in Dekl. 

C IRES=1: dgl, zusätzl. Ausgabe der Gewichte 

C IRES=2: Restf. in RA*cos(Dekl) und in Dekl. multipl.mit Wurzel 
C der Gewichte, und Ausgabe der Gewichte 

C IRES=3: Restf. in Rekt . (ohne cos (Dekl)) und in Dekl. 

PARAMETER (LBE=500 ,LLS=1 ) 

CHARACTER*4 ISTRIN,ISTR2 

CHARACTER*1 IX, IY, IZ , IXYZO 

REAL LS(2,LLS) 

COMMON/BE 1 /ISTRIN ( LBE , 3 ) /BE2 /RES ( 2 , LBE ) /GEWI /P ( 2 , LBE ) /LS 1 /LS 

COMMON/BEOB/TOBS(LBE) , RA (LBE) , DEKL (LBE ) /EQUIN/EQ, IRES/XYZ /IFXYZ 

DIMENSION IND(3) 

EXTERNAL DSQRT,DCOS 

SAVE 

DATA L,S /0, 206264. 8062471DO/ 

DATA IX,IY,IZ / 'X' , ■ Y' , ' Z ' / 

IF ( IBVO . EQ . . OR . NGLEI . EQ . ) GOT06 

STA=0.D0 
C STA ist der mittl. Fehler einer gesamten Beobachtung des Gewichtes 1. 
C NGLEI ist die Anzahl der Bedingungsgleichungen bei der Bahnverbesserung 
C abzüglich der Zahl der Unbekannten. 

D04I=l,IOBS 

IF ( IFXYZ . EQ . ) GOT052 

ISTR2=ISTRIN(I,2) 
CUNI DECODE (3, 51, ISTR2 ) IXYZO 

READ ( ISTR2 , 51 ) IXYZO 

51 FORMAT(2X,Al) 
IF(IXYZ0.EQ.IX.OR.IXYZ0.EQ.IY.OR.IXYZ0.EQ.IZ)GOTO4 

52 STA=STA+(RES(1,I)*P( 1,1) ) **2+ ( RES ( 2 , 1 ) *P ( 2 , 1 ) )**2 
4 CONTINUE 

STA=DSQRT ( STA/NGLE I * 2 . DO ) 



IF ( NRBV . NE . 1 1 . AND . STA . GT . 1 . D- 8 ) WRITE ( 6 , 7 ) STA* S 

70 FORMAT(35X, 'Mittl.F. ' ,F7.2) 
6 CONTINUE 

IF(IRES.NE.2 )WRITE(6,71) 
IF(IRES.EQ.2 ) WRITE (6, 72) 

71 FORMAT( /, IX, '<ESC!20>' , 'Restfehler der eingegebenen', 
. ' Beobachtungen : ' , ' <ESC ! 4> ' , / ) 

72 FORMAT( /, IX, '<ESC! 20>' , 'Restfehler der eingegebenen Beobachtungen' 

,'<ESC!4>',' (multipliziert mit der Wurzel des Gewichtes):'/) 
IF(IRES.EQ.0)WRITE(6, 10) 
IF(IRES.EQ.3)WRITE(6, 11) 
IF(IRES.EQ.1.0R.IRES.EQ.2)WRITE(6, 12 ) 

10 FORMAT) 1X,3(3X, 'Nr . ' ,2X, ' Zeit,Stw. ' ,2X, 'R*cos(D) ' , 3X, ' D ' , 3X) ) 

11 FORMAT ( 1X,3(3X, 'Nr . ' ,2X, ' Zeit,Stw. ' , 5X, ' RA' , 4X, 'Dekl' ,2X) ) 
,2X, 'Zeit,Stw. ' ,3X, 'Gewicht' ,2X, ' R*cos(D) 



'Nr. 



,3X, 



12 FORMAT(3(3X, 
• 'D',3X)) 
J=IOBS/3 
K=IOBS-3*J 
IF(K.NE.0)L=1 
K0=3 

D01I=1, J+l 
IND( 1)=I 
IND(2)=I+J+L 
IND(3)=I+2*J+K 
IF(I.EQ. J+1)K0=K 
IF(IRES.EQ.0)WRITE(6,2) (IND(M) , ( ISTRIN ( IND (M) ,M0 ) ,M0=1 , 3 ) , 

RES(1,IND(M) )*S,RES(2,IND(M) )*S,M=1,K0) 
IF(IRES.EQ.3)WRITE(6,5) (IND(M) , ( ISTRIN ( IND (M) ,M0 ) ,M0=1 , 3 ) , 

RES( 1,IND(M) )*S/15.D0/DCOS(DEKL(IND(M) ) ) , RES ( 2 , IND (M ) )*S,M=1,K0) 
IF(IRES.EQ.2 ) WRITE (6, 3) (IND(M) , ( ISTRIN ( IND (M) ,M0) ,M0=1,3) , 
P( 1,IND(M) )**2,P(2,IND(M) )**2, 
RES( 1,IND(M) )*S*P(1,IND(M) ) , RES ( 2 , IND (M) ) *S*P ( 2 , IND ( M) ) , M=1,K0) 
IF(IRES.EQ.1)WRITE(6,3) (IND(M) , ( ISTRIN ( IND (M) ,M0) ,M0=1,3) , 
P( 1,IND(M) )**2,P(2,IND(M) )**2, 
RES( 1,IND(M) )*S,RES(2,IND(M) )*S, M=1,K0) 

1 CONTINUE 

2 FORMAT ( 1X,3(1X,I4,1X,3A4,2F8.2) ) 

3 FORMAT(3( 1X,I4,1X,3A4,2( IX, F4 . 1 ) , 2F8 . 2 ) ) 
5 FORMAT( 1X,3(1X,I4, IX, 3A4 , F8 . 3 , F8 . 2 ) ) 

IF ( LLS . EQ . 1 . OR . NRBV . LT . 1 1 ) GOT02 
WRITE(6,23) 
23 FORMAT(//' helioz .Distanz und ihre Differenz Kern-Lichtschw. ' / ) 
D021J=l,IOBS 

21 WRITE (6, 22 ) J, ( ISTRIN ( J,M0) ,M0=1,3) ,P(2,J),LS(1,J),LS(2,J)*149.5979 

22 FORMAT (2X, 14, IX, 3A4, IX, F4 . 1 ,F8 . 2 ,F10 . 1 ) 
2 RETURN 

END 

SUBROUTINE BV(NF ,NGR, IOBS , NGLEI ) 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 

SAVE 

PARAMETER (LN=2 7 ,LU=16 , LU1=LU+1 , LU2=LU*2 ,LU6=LU-6 ) 
Programm löst nach dem Nachrechnen aller Beobachtungen die in SUBR.COEFF 
gebildeten Bedingungsgleichungen zur Bahnverbesserung auf. 
VERB(J) enthält die J-te Unbekannte überhaupt, U(I) die I-te 
der IBZ in SUBR.ZCOEFF hinzugekommenen Unbekannten (diese nicht in E !). 
Bei IH=1 bzw. 2 alle mittl .Fehler/Fehlerrechn. auf STA0=1" (m.F.) bezogen 

EXTERNAL DSQRT 

DIMENSION VO(LU) 

COMMON/SOLUT/VERB(LU2)/BAHN/E(LU)/K2/D(LUl,LUl) , STA0/IO/GD (LU ) 

COMMON/NV/IF0,NG6, IFEST(LUl) ,CEK(LU,LU) ,CXK(LU,LU) /ZUSK/TZ 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) , DX ( 3 , LN ) /EL/G (LU ) ,GF(LU) 

COMMON /UNB /MO, IBZ , NG6IBZ , B ( 2 , LU) ,B0(2,LU6) ,U(LU6) 

COMMON/ZIEL/IH 

CALL LSQ(2*IOBS,M0+l) 

IF (NGLEI . NE . ) STA0=DSQRT ( D (M0+1 ,M0+1 ) /NGLEI ) 



IF(IH.EQ.2 .OR.NGLEI.EQ.0)STA0=l.D0/2 062 64.8D0 
IF(IH.EQ.2 .OR.NGLEI.EQ.0)WRITE(6, 12 ) 
12 FORMAT(/' *** Mittl. Fehler der Elemente usw. auf m.F. von 1" ■ , 
'bei Einheitsgewicht bezogen !! ***■/) 
IF(IFO.EQ.O)GOT01 
C Falls die Bahnverbesserung nicht in den rechtwinkligen Initialwerten 
C durchgeführt wurde, werden deren Änderungen jetzt berechnet. 
D02I=1,NG6IBZ 

vo(i)=.odo 

M=0 

D06K=1,NG6IBZ 

IF(IFEST(K) .NE.0)GOTO6 

M=M+1 

VO ( I ) =V0 ( I ) +VERB ( M ) *CXK ( I , K ) 

6 CONTINUE 

2 CONTINUE 
D07I=1,NG6IBZ 
VERB(I)=V0(I) 

7 CONTINUE 
1 CONTINUE 

IF(IBZ.EQ.0)GOTO8 
WRITE(6, 10) 

10 FORMAT(/' Ergebnisse für die Zusatzunbekannten: ',/, 19X, 
. ' mittl. Fehler ' /) 

C STAO ist der mittlere Fehler einer Bedingungsgleichung vom Gewicht 1 . 
IF(IF0.NE.0)CALL MF1(0,TZ) 
D09I=1,IBZ 

IF ( IFO . EQ . ) GF ( NG6+I ) =VERB ( LU+NG6+I ) *STA0 
U ( I ) =U ( I ) +VERB ( NG6+I ) 
WRITE(6, 11)U(I)*GD(NG6+I) , GF (NG6 + I ) *GD (NG6+I ) 

11 FORMAT(2( 1X,F14.6) ) 
9 CONTINUE 

8 CONTINUE 
D03I=1,3 

X ( I , NF ) =E ( I ) +VERB ( I ) 

DX ( I , NF ) =E ( 1+3 ) +VERB ( 1+3 ) 

3 CONTINUE 
IF(NGR.EQ.0)GOTO4 
D05I=1,NGR 

5 E(6+I)=E(6+I)+VERB(6+I) 

4 CONTINUE 
CALL NGFUNB 
RETURN 

END 

BLOCK DATA BDBV 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER (Lü=16 ,LU6=LU-6 ) 

COMMON/UNB/M0 ,IBZ,NG6IBZ,B(2,LU),B0(2,LU6),U(LU6) 

DATA U /LU6*.0D0/ 

END 

SUBROUTINE ZCOEFF( X, Y0 , Z0 , T ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Unterprogramm zur Berechnung der Koeffizienten der Bedingungsgleichun- 
C gen der IBZ Zusatzunbekannten, die sich direkt aus RA und Dekl . 
C ergeben (z.Bsp. Korrektur von Äquator, Äquinoktium oder den ande- 
C ren Erdbahnelementen, systematische Fehler in den Beobachtungen usw) . 
C IIFO gibt an, welche (IIF) d. unten kodierten Unbekannten der Reihe nach 
C zu durchlaufen sind (bei Planetoiden 1,2,106.. sinnvoll, bei Kometen 10,...) 
C Wenn die Sonnenlänge bzgl. des verbesserten Äquinoktiums L 
C bzw. diejenige bzgl. des alten und verwendeten Beobachtungs- 
C systemes (FK4 oder so), L-E*SEC(EPS) als Unbekannte gewählt ist 
C (von Bedeutung, falls die Sonnenlänge nicht verb. werden soll), sind die 
C verbesserten Planetenelemente/Ephemeridenwerte auf das betr .Äquin.bez . !! 
C Die üblicherweise gebr. Formeln entspr. IIF=4/6. B(1,J) bzw B(2,J) ist 



C die Ableitung von RA bzw. Dekl . nach der J-ten Zusatzunbekannten. 

C Diese Koeffizienten werden zwecks Speicherplatzersparnis bei jeder 

C Bahnverbesserung neu berechnet. Die Koeffizienten der zeitlichen Ablei- 

C tung sind dieselben, nur mit T-TO multipliziert (dazu IIF um 100 erhöht). 

C Bei insgesamt über zehn Unbekannten müssen Feldgrößen geändert werden. 

C X, YO, ZO/X, Y, Z heliozentr. äquatoreale/ekliptikale Erdkoordinaten, 

C XK,YK,ZK, RA,DE,D helioz . rechtw. u .geoz .polare äquat .Koord.d. Planet/Komet 

C M=NG6-IFEST( 11 ) ist die Zahl der Unbekannten incl. den IBZ neuen. 

SAVE 

PARAMETER (LU=16 ,LU6=LU-6 , LDAT=LU6-8 ) 

EXTERNAL DCOS , DSIN, DTAN, DATAN 

COMMON/UNB/M, IBZ,NG6IBZ,B0(2,LU),B(2,LU6) 

COMMON /EPHO /DEDAE ( 2 , 2 ) , XK , YK , ZK , RA , DE , D 

DIMENSION IIF0(LU6) 

DATA AL,AM,AN,AK,R0 / . 1 1 1262D0 , 2 . 15D0 , 5 . 093D0 , 4 . 6 142D0 , 2 . 808D0/ 

DATA IIFO /10, 1,2, 106,4,3,6, 108, LDAT*0/ 

IF(M.LE.LU)GOTO104 

WRITE(6, 106) 
106 FORMAT(' Die Anzahl der zu bestimmenden Unbekannten ist größer ' , 
.' als infolge der Feldgrenzen möglich. Programm hält.'/) 

CALL STOP 
104 CONTINUE 

EPS=DATAN(Z0/Y0) 

CALL EKLAEQ(Y0,Z0,-EPS,Y,Z) 

D0=D*DCOS(DE) 
C T0=(T-2433282.423D0)/36525.D0 

TO=(T-2 4 4 3000.5 0DO)/36525.DO 

DO101J=l,IBZ 

IIF1=IIF0( J) 

IIF=MOD(IIFl, 100) 

GOTO (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)1 IF 

100 CONTINUE 
IF(IIF.EQ.IIFl)GOTO101 
B( 1, J)=B( 1, J)*T0 

B(2, J)=B(2, J)*T0 

101 CONTINUE 
RETURN 

C Vorgabe der diversen Effekte 

1 CONTINUE 

C IIF=1: Korrektur der Bewg.des Äq. u.d.Präz. dk=dp*cos (eps ) - (dE/dt-dLamb) 
B(1,J)=T0 
B(2, J)=.0D0 
GOTO100 

2 CONTINUE 

C IIF=2: Korrektur der Präzession dn=dp*sin(eps ) 
B( 1, J)=T0*DSIN(RA)*DTAN(DE) 
B(2, J)=T0*DCOS(RA) 
GOTO100 

3 CONTINUE 

C IIF=3: Korrektur des Äquators D 

C Oft wird in nachfolgendem Ansatz auch DCOS (DE) weggelassen. 

B(1,J)=.0D0 

B(2, J)=-DCOS(DE) 

GOTO100 

4 CONTINUE 

C IIF=4: Korrektur des Äquinoktiums E ( Sonnenl .bzgl .dyn.Äquin. unverändert ) 
B(1,J)=-1.D0 
B(2, J)=.0D0 
GOTO100 

5 CONTINUE 

C IIF=5: Korrektur des Äquinoktiums E ( Sonnenl .bzgl .Katalogäquin.unveränd. ) 
Hl=DCOS ( EPS ) - 1 . DO /DCOS ( EPS ) 
B( 1, J)=Y*DSIN(RA)*H1/D0 

B(2,J)=(Y*DSIN(DE)*DCOS(RA)*Hl-X*DCOS(DE)*DTAN(EPS) ) /D 
GOTO100 



6 CONTINUE 

7 CONTINUE 

C IIF=6/7: Korrektur der Länge der Sonne bzgl .dynam.Äquin . /Katalogäquin. 1/1' 
C 1 ' =1-E*sec(eps ) 

B( 1, J)=-(X*DCOS(RA)*DCOS(EPS)+Y*DSIN(RA) ) /DO 

B ( 2 , J ) =- ( X* ( DCOS ( DE ) *DSIN ( EPS ) -DSIN ( RA ) *DSIN ( DE ) *DCOS ( EPS ) ) ) /D 

IF(IIF.EQ.7)B(2, J)=B(2, J ) +Y*DCOS ( RA) *DSIN ( DE ) /D 

GOTO100 

8 CONTINUE 

C IIF=8: Korrektur der Schiefe der Ekliptik eps {Variation d. Erdkoord.) 
C (rel. zum Katalogsystem, f.inertiale zeitl.Abl. d. Werte bei IIF=9 abziehen) 

B( 1, J)=Y*DCOS(RA)*DSIN(EPS) /DO 

B(2, J)=-Y*(DCOS(DE)*DCOS(EPS)+DSIN(RA)*DSIN(DE)*DSIN(EPS) ) /D 

GOTO100 

9 CONTINUE 

C IIF=9: Rotation des Katalogsystemes um Äquinoktium deps ' /dt 

C (dritte Rotationsgröße neben dk,dn, positiv wenn Kat.äq. i. R.Ekliptik läuft) 

B( 1, J)=T0*DTAN(DE)*DCOS(RA) 

B(2,J)=-T0*DSIN(RA) 

GOTO100 

10 CONTINUE 

11 CONTINUE 

C IIF=10/11: Abstand Licht- zu Massenschwerpunkt bei Kometen r (L) -r (M)=S*s ( r ) 
C s(r)=SR nach der Sublimationsformel von Delsemme (IIF=10) bzw. =1 (IIF=11) 
C Partial positiv m. zun.helioz . Abstd (Unbekannte S in E-6 AE, sollte neg.sein) 

R=DSQRT(XK*XK+YK*YK+ZK*ZK) 

IF(IIF.EQ. 10)SR=AL/(R/R0)**AM/( 1 . D0+ (R/RO ) **AN ) **AK 

IF(IIF.EQ. 11)SR=1.D0 

FAK=SR*206264 . 8D-6/D/R 

B( 1, J)=(YK*DCOS(RA)-XK*DSIN(RA) ) /DCOS ( DE ) *FAK 

B(2, J) = (ZK*DCOS(DE)-(XK*DCOS(RA)+YK*DSIN(RA) )*DSIN(DE) )*FAK 

GOTO10 
C Hier bei Bedarf die partiellen Ableitungen weiterer Unbek. einfügen. 

END 

SUBROUTINE TIME1 ( IOBS , Kl , K2 ) 
CUNI VIRTUAL /BEOB/ 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Berechnet die Nr. der zu wähl .Beob. für d. erste Bahnbest.aus 4 Beob. 

PARAMETER (LBE=500) 

COMMON/BEOB/T ( LBE ) 

SAVE 

T00=.0D0 

IOBS2=IOBS-2 

IOBSl=IOBS-l 

D01J=2,IOBS2 

D01K=J,IOBSl 

T0=(T(IOBS)-T(K) )*(T(K)-T(J))*(T(J)-T(1)) 

IF(T0.LT.T00)GOTOl 

T00=T0 

K1=J 

K2=K 
1 CONTINUE 

RETURN 

END 

SUBROUTINE TIME0(IOBS,Kl) 
CUNI VIRTUAL /BEOB/ 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

PARAMETER (LBE=500) 
C Berechnet die Nr. der mittl.Beob. f.d. erste Bahnbest. aus 3 Beob. 

COMMON/BEOB/T (LBE) 

SAVE 

T00=.0D0 

IOBSl=IOBS-l 

D01J=2,IOBSl 

T0=(T(IOBS)-T( J) )*(T( J)-T(l) ) 



IF(TO.LT.TOO)GOT01 

TO0=T0 

K1=J 
1 CONTINUE 

RETURN 

END 

SUBROUTINE BAHNO (NF , IOBS , IEND ) 
CUNI VIRTUAL /BEOB/ 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER (LU=16 ,LBE=500 ) 
C Berechnung einer ersten Bahn. IBAHN=0,1,2 oder 3, jenachdem, ob aus 
C drei Beob. eine Bahn unter bzw. ohne Vorgabe der gr. Bahnhalbachse, aus 
C 4 Beob. eine allgemeine, oder aus 2 Beob. eine kreisähnl .Bahn z.ber.ist. 
C Veränderung von IBAHN bei Mißerfolg 2 : 3 : STOP bzw. (1:)0:2:STOP . 
C Jeweils alle möglichen Lösungen werden gesucht. 
C Erste Bahnbestimmung von Monden nur heliozentrisch möglich. 

COMMON/BEOB/T(LBE) ,R(LBE) , D ( LBE ) ,X(LBE) ,Y(LBE) , Z ( LBE ) 

COMMON /BAHN/E ( LU ) , NRBV , STAO , IBAHN 

DATA K1,K2 /l, 1/ 

IF ( IBAHN . EQ . 2 . AND . IOBS . EQ . 3 ) IBAHN=1 

IF ( IOBS . EQ . 2 ) IBAHN=3 

CALL POLREC(R( 1),D(1),1.D0,A1,B1,C1) 

CALL POLREC(R(IOBS) ,D(IOBS) , 1 . DO , A2 , B2 , C2 ) 

IF ( IBAHN . EQ . 3 ) GOT07 

IF ( IBAHN . NE . 2 ) G0T01 
C Berechnung einer allgemeinen Bahn aus 4 Beobachtungen oder Kreisbahn 

CALL TIME1(I0BS,K1,K2) 

CALL P0LREC(R(K1) , D ( Kl ) , 1 . DO , A3 , B3 ,C3 ) 

CALL POLREC(R(K2 ) , D ( K2 ) , 1 . DO , A4 , B4 ,C4 ) 
7 CALL ELIPSE(NF,T(1) ,T(K1) , T ( K2 ) ,T(IOBS) , AI , Bl , Cl , A3 , B3 ,C3 , 
. A4,B4,C4,A2,B2,C2,-X(1) ,-Y(l) ,-Z(l) ,-X(Kl) ,-Y(Kl) ,-Z(Kl) , 
-X(K2) ,-Y(K2 ) ,-Z(K2) , -X(IOBS) , -Y(IOBS) , -Z(IOBS) , IBAHN) 

GOT03 
C Berechnung einer Bahn aus 3 Beobachtungen 
1 CONTINUE 

CALL TIMEO(IOBS,K1) 

CALL P0LREC(R(K1) , D ( Kl ) , 1 . DO , A3 , B3 ,C3 ) 
C allgemeine Bahn 

IF( IBAHN. EQ.l) 
.CALL ELIP(NF,T(1) ,T(K1) ,T(IOBS) , AI , Bl , Cl , A3 , B3 , C3 , A2 , B2 , C2 , 
. X( 1) ,Y( 1) , Z (1 ) ,X(K1) ,Y(K1) ,Z(K1) , X ( IOBS ) ,Y(IOBS) , Z ( IOBS ) , IBAHN) 
C 1/a vorgegeben 

IF( IBAHN. LE.O) 
.CALL PAR(NF,T( 1) ,T(K1) ,T(IOBS) , AI , Bl ,C1 , A3 , B3 , C3 , A2 , B2 ,C2 , 
. X(1),Y(1),Z(1),X(K1),Y(K1),Z(K1) , X ( IOBS ) ,Y(IOBS) , Z ( IOBS ) , IBAHN) 

IF ( IBAHN . EQ . 3 ) GOT07 
3 CONTINUE 

NRBV=1 

IF ( IEND . EQ . . OR . IBAHN . EQ . 3 ) NRBV=1 1 

CALL ANZ ( 2 ) 
C Die nichtgrav. Parameter können vorgegeben werden. 

RETURN 

END 

SUBROUTINE ELIPSE ( NOB J , TA , TB , TC , TD , AA , BA , CA , AB , BB , CB , AC , BC , CC , 
. AD , BD , CD , XA , YA , Z A , XB , YB , ZB , XC , YC , ZC , XD , YD , ZD , IBAHN ) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 

EXTERNAL DSQRT,DACOS 

SAVE 

PARAMETER (LN=27 ,LU=16 ) 

COMMON /MAS SE/AM0(LN) ,NZENTZ , GK/ANZAHL/NA,NB, DG, DT/ZUSK/TZ 
C Programm zur Berechnung der Bahn eines Himmelskörpers aus 4 Beobachtungen 
C und zur Kreisbahnbestimmung. Übergabe: Richtungsvektoren u. Sonnenkoord. 

DATA CBK,N,UNC,DELA0,FAK,ISOL /5 . 77551938D-3 , , l.D-10, .1D0, l.D0,0/ 

DATA F0,RAD2,SW,IR,M,IHOPE,IKREIS / . 5D0 , . 50D2 , - . 01D0 , , -1 , 1 , 0/ 



IF(IBAHN.EQ.2 )WRITE(6, 1 ) TA, AA, BA, CA, XA, YA, ZA, TB, AB , BB , CB , XB , YB , ZB, 
. TC , AC , BC , CC , XC , YC , ZC , TD , AD , BD , CD , XD , YD , ZD , GK 

IF ( IBAHN . EQ . 3 ) WRITE ( 6 , 3 ) TA, AA, BA, CA, XA, YA, ZA, 
TD , AD , BD , CD , XD , YD , ZD , GK 
1 FORMAT(//' Aus folgenden vier Beobachtungen wird eine erste',/, 
.' Bahn bestimmt: '//, 10X, 't(ET) ' ,9X, ' cos (RA) *cos (Dekl ) ' ,2X, 
. ' sin(RA)*cos(Dekl) ' ,4X, 'sin (Dekl) ' ,13X, 'X' ,17X, ■ Y' ,17X, 'Z ' ,//, 
.4(2X,F17.6,6(2X,F16.8),/),/,10X, 'Gaußsche Konstante ' , F18. 12, /) 
3 FORMAT(//' Aus folgenden zwei Beobachtungen wird eine Kreisbahn', 
. ' bestimmt: '//, 10X, 't(ET) ' ,9X, ' cos (RA) *cos (Dekl ) ' ,2X, 
. ' sin(RA)*cos(Dekl) ' ,4X, 'sin (Dekl) ' ,13X, 'X' ,17X, ■ Y' ,17X, 'Z ' ,//, 
.2(2X,F17.6,6(2X,F16.8),/),/,10X, 'Gaußsche Konstante ' , F18. 12, /) 
Berechnung konstanter Hilfsgrößen 

RQA=XA**2+YA**2+ZA**2 

RQD=XD**2+YD**2+ZD**2 

RAA=-(AA*XA+BA*YA+CA*ZA) 

RDD=-(AD*XD+BD*YD+CD*ZD) 

RQAA=RQA-RAA**2 

RQDD=RQD-RDD**2 

IF(IBAHN.EQ.3)GOTO103 

RNA=AB*BD-BB*AD 

RNB=AC*BD-BC*AD 

AG= ( AA*BB-BA*AB ) /RNA 

AH=(AA*BC-BA*AC)/RNB 

BG=(AB*YA-BB*XA)/RNA 

BH=(AC*YA-BC*XA)/RNB 

CG= ( BB*XB-AB* YB ) /RNA 

CH=(BC*XC-AC*YC)/RNB 

DG= ( AB* YD-BB*XD ) /RNA 

DH=(AC*YD-BC*XD)/RNB 

HAA= ( TD-TB ) / ( TB-TA ) 

HAB= ( TD-TC ) / ( TC-TA ) 

HBA=4.D0*GK**2* (TD-TB) *(TD-TA) /3.D0 

HBB=4 . D0*GK**2 * ( TD-TC ) * ( TD-TA) /3 . DO 

FAA=AG*HAA 

FAB=AH*HAB 

FBA=HBA*AG* (1.D0-HAA) 

FBB=HBB*AH* (1. DO-HAB) 

FCA=4 . D0*GK**2*( TD-TB) **2*AG 

FCB=4 . D0*GK**2*( TD-TC) **2*AH 

FDA=HAA* ( BG+CG ) +CG+DG 

FDB=HAB* ( BH+CH ) +CH+DH 

FEA=HBA* ( BG-CG+DG-FDA ) 

FEB=HBB* ( BH-CH+DH-FDB ) 

FFA=4.D0*( ( TD-TB )**2*BG+( TD-TB) *( TB-TA) *CG)*GK**2 

FFB=4 . DO* ( ( TD-TC ) * *2 *BH+ ( TD-TC ) * ( TC-TA ) *CH ) *GK* *2 
Suche der geozentrischen Entfernungen 
10 CONTINUE 

DELA0=1 . 05D0*DELA0 

DELD0=DELA0*FAK 

N=0 

DELA=DELA0 

DELD=DELD0 

GOTO 11 
101 CONTINUE 

EPS=RAD* * 2 / ( RADD+RADA ) * * 3 

PY= ( RADD-RADA ) / ( RADD+RADA ) 

SA= ( FCA*PY+FBA ) *EPS+FAA 

SB= ( FCB*PY+FBB ) *EPS+FAB 

TM= ( FFA*PY+FEA ) *EPS+FDA 

TN= ( FFB*PY+FEB ) *EPS+FDB 

DELA= ( TN-TM ) / ( SA-SB ) 

DELD=DELA* SA+TM 
Vermeidung der Erdbahnlösung 

IF(DELA.LT. . 01D0 .OR. DELD . LT . .01D0)GOTO9 9 



IF ( DABS ( DELA+DELD-DELO ) . LT . UNC ) GOTO102 
11 CONTINUE 

DELO=DELA+DELD 

RAD=1 . DO- ( DELD-DELA) *CBK/ ( TD-TA) 

RADA=DSQRT( (RAA+DELA) **2+RQAA) 

RADD=DSQRT( (RDD+DELD ) **2+RQDD ) 

IF(N.GE.30)GOTO99 

N=N+1 

GOTO101 
99 CONTINUE 

IF ( DELAO . LT . 2 . DO ) GOTOl 

DELA0=. 1D0 

FAK=1 . 04D0/FAK**1 . 25D0 

IF(FAK.LT. 10. DO) GOTOl 

103 CONTINUE 

C Eine Bahnbestinunung aus 4 Beobachtungen hat nicht geklappt. 

C Als letzte Hoffnung wird jetzt noch die Berechnung einer Kreisbahn versucht. 
C Hierbei ist nicht empfehlenswert, ganz exakt den Kreisbahnradius zu bestim- 
C men, weil man bei EXZ=0 sonst Schwierigkeiten mit PX,PY, PZ ,QX,QY,QZ bekommt. 
C IR= Anzahl, wie oft in SUBR.ELE illusorische Elemente erhalten wurden, 
C IKREIS=1 bzw 0, falls schon eine Kreisbahnbestimmung versucht wurde oder 
C noch nicht, IHOPE=0 falls auch diese erfolglos verlief, ISOL=Anzahl der 
C gefundenen Lösungen bei der Kreisbahnbestimmung. 

IF ( IR* IKRE IS . EQ . . AND . IBAHN . NE . 3 ) WRITE ( 6 , 1 7 ) 
107 FORMAT(/' Versuch einer Kreisbahnbestimmung '//) 

IKREIS=1 

IR=0 
2 CONTINUE 

M=M+1 

F1=F0 

RAD2=RAD2+SW 

DELA=DSQRT ( RAD2 -RQAA ) -RAA 

DELD=DSQRT ( RAD2-RQDD ) -RDD 

FGA= ( ( AA*DELA-XA ) * ( AD*DELD-XD ) + ( BA*DELA-YA ) * ( BD*DELD- YD ) 
. +(CA*DELA-ZA)*(CD*DELD-ZD) ) /RAD2 

F0= ( TD-TA+ ( DELA-DELD ) *CBK ) *GK/RAD2 * * . 75D0 /DACOS ( FGA) - 1 . DO 

IF(RAD2.LE.1.01D0.AND.ISOL.EQ.0)GOTO104 

IF ( RAD2 . LE . 1 . 1D0 . AND . ISOL . NE . ) RETURN 

IF ( M . LT . 2 . OR . F0 *F1 . GT . . 0D0 ) GOT02 

ISOL=ISOL+l 

IF ( I SOL . NE . 1 . AND . IBAHN . EQ . 3 ) CALL ELEM ( NOB J , TZ , DT , ) 
102 CONTINUE 
C Berechnung der Elemente aus den erhaltenen geozentrischen Distanzen. 

T=TD-TA+ ( DELA-DELD ) *CBK 

T0=TA-DELA*CBK 

CALL ELE(T,TO,GK,AA*DELA-XA,BA*DELA-YA,CA*DELA-ZA,AD*DELD-XD, 
.BD*DELD-YD,CD*DELD-ZD,NOBJ,IR) 

IF ( IHOPE . EQ . 1 ) WRITE ( 6 , 1 6 ) DELA , DELD 
106 FORMAT(//' Erhaltene geozentrische Distanzen: ' ,2F10.7/) 

IF ( IBAHN . EQ . 3 ) GOT02 

IF(IR.EQ.O .OR. IHOPE. EQ.0) RETURN 

IF ( IBAHN . EQ . 2 . AND . IKRE IS.EQ.0.AND.IR.LT.10) GOTO 1 

IF ( IBAHN . EQ . 2 . AND . IKRE I S . EQ . . AND . IR . EQ . 1 ) GOTO 10 3 

104 CONTINUE 
WRITE(6, 100) 

100 FORMAT(/' Die Kreisbahnbestimmung war erfolglos. ',/, 
. ' Näherungslösung mit geoz. Distanz = 1.80 AE: ' //) 
IHOPE=0 
IBAHN=3 
DELA=1.80D0 
DELD=1.80D0 
GOTOl 2 
END 

SUBROUTINE PAR(NOBJ, Tl , T2 , T3 , AI , Bl , Cl , A2 , B2 , C2 , A3 , B3 , C3 , 
X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3,IBAHN) 



IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

EXTERNAL DSQRT 

SAVE 

PARAMETER (LN=2 7 ,LU=16 ) 

DIMENSION D01(3) ,D03(3) 

COMMON/BAHN/E(LU)/ZUSK/TZ /MASSE /AMO(LN) ,NZZ , GK/ANZAHL/NA, NB , DG, DT 
C Programm zur ersten Bahnbestimmung aus drei Beobachtungen unter Vorgabe 
C der großen Halbachse. X,Y,Z äquat . Erdkoordinaten. 

DATA CBK,HA /5 . 7755 1938D-3 , . 0D0/ 

IF(IBAHN.LE.0.AND.E(2) . GT . 1 . D- 10 ) HA=1 . DO/E ( 2 ) 

WRITE(6,3 ) 

WRITE ( 6 , 3 1 ) Tl , AI , B 1 , C 1 , XI , Yl , Z 1 , T2 , A2 , B2 , C2 , X2 , Y2 , Z2 , 
T3,A3,B3,C3,X3, Y3,Z3,GK 

30 FORMAT(//' Aus folgenden drei Beobachtungen wird eine erste', 
. ' Bahn bestimmt: ' ) 

31 FORMAT ( //, 10X, 't(ET) ■ ,9X, ' cos ( RA) *cos ( Dekl ) ' ,2X, 

. ' sin(RA)*cos(Dekl) ■ ,4X, 'sin (Dekl) ' ,13X, 'X' ,17X, 'Y' ,17X, 'Z ' ,//, 
.3(2X,F17.6,6(2X,F16.8),/),/,10X, 'Gaußsche Konstante ' , F18. 12, /) 
C Berechnung konstanter Hilfsgrößen. 
T01=(T3-T2)*GK 
T03=(T2-T1)*GK 
T02=T01+T03 
H1=C2*Y2-B2*Z2 
H2=B2*X2-A2*Y2 
H3=C2*X2-A2*Z2 

B=(A3*(B2+C2)-A2*(B3+C3) )*H1-(B3*C2-C3*B2)*(H2+H3) 
A=( (A1*(B2+C2)-A2*(B1+C1) )*H1-(B1*C2-C1*B2)*(H2+H3) ) /B 
C=( ( (B2+C2)*X1-(Y1+Z1)*A2)*H1-(C2*Y1-B2*Z1)*H2 

-(C2*Y1-B2*Z1)*H3)/B 
D=( ( (B2+C2)*X3-(Y3+Z3)*A2)*H1-(C2*Y3-B2*Z3)*H2 
-(C2*Y3-B2*Z3)*H3)/B 
C Suche der ersten geozentrischen Entfernung Dl 
H1=(T01*T01-T03*T03)/.7 5D0 
H2=T03*T01*4 .DO 
2 9 CONTINUE 
IR=0 
L=7 
N=l 
F=1.D0 

32 FORMAT( ' (Annahme für 1/a ',F6.3,' )',//) 
IF ( IBAHN . LE . ) WRITE ( 6 , 32 ) HA 
HA0=DSQRT(HA) 

D0=.0D0 

D1=.0D0 

D3=.0D0 

SW=.05D0 
2 5 CONTINUE 

D1=D1+SW 

D3=D3+SW 

CALL KO(A1,B1,C1,D1,X1,Y1,Z1,X01,Y01,Z01,R1) 
C Iterative Berechnung des Dreiecksflächenverhältnis V. F Fehler desselben 
C ggnü. der genauen Rechnung v. Sektor : Dreieck, R0 Aberrationszeitfaktor, 
C sowie der dritten Entf.D3. HA=rezipr .Bahnhalbachse im Falle IBAHN<1. 

D02I=1,L 

CALL KO(A3,B3,C3,D3,X3,Y3,Z3,X03,Y03,Z03,R3) 

R0=1.D0-(D3-D1)*CBK/(T3-T1) 

IF(I.EQ.L)GOT02 

V=T01/T03* (1.D0-H1/(R3+R1)**3+H2*(R3-R1)/(R3+R1)**4) 

D3=(C-A*D1)*V*F+D 
2 CONTINUE 
C Jetzt ist D3 zu Dl gefunden. Überpruefung von Dl bei vorgeg. rezipr. 
C gr .Bahnhalbachse HA m.d.Lambertschen Theorem 

S=DSQRT( (X03-X01)**2+(Y03-Y01)**2+(Z03-Z01)**2) 

CALL LAMB( DSQRT (R1+R3+S) , DSQRT ( R1+R3-S ) , HA, HAO , TK, IFERR ) 

IF ( IFERR . EQ . 1 ) GOT03 



F0=1 .DO-TK/GK/ (T3-T1 ) /RO 
22 CONTINUE 

IF( DI-DO. LT. SW*1.01DO.OR.FO*FOO.GT. .0D0)GOTO3 
IF ( FO *FO . GT . 1 . DO ) GOT04 
C Die gesuchte Entfernung liegt zwischen Dl-SW und Dl. 
IF(DABS(SW) .LT.l.D-6)GOT08 
L=10 

SW=-SW/5.D0 
GOTO 3 
8 CONTINUE 

WRITE(6,999)D1,D3 
999 FORMAT ( ' Gefundene geozentrische Entfernungen: ' ,2 (2X,F10 . 7 ) ) 
D01(N)=D1 
D03(N)=D3 
D0=D1 
N=N+1 
4 L=7 

SW=.05D0 
F=1.D0 
3 CONTINUE 
F00=F0 

IF(D1.LT. 10. DO. AND. ( ( IBAHN . LE . . AND .N .LE . 3 ) .OR. 
(IBAHN.EQ.1.AND.N.LE.2) ) (GOT02 5 
C Jetzt sind alle möglichen Entfernungen gefunden und werden die 
C zugehörigen Bahnen berechnet. 
IF(N.EQ. l)GOT026 
DO10I=N-l,l,-l 
IF(I.NE. 1)WRITE(6, ll)DOl(I) ,D03(I) 

11 FORMAT(//' Weitere mögliche geozentrische Entfernungen',/, 

. ' bei der ersten Bahnbestimmung: ',/, ' Dl ' ,F10.7,' D3 ■ ,F10.7/) 
IF(I.NE. 1)WRITE(6, 12) 

12 FORMAT(/' Zugehörige Elemente: '/) 
D1=D01(I) 

D3=D03(I) 

T=T3-T1+(D1-D3)*CBK 

T0=T1-D1*CBK 

CALL ELE(T,T0,GK,X1+A1*D1,Y1+B1*D1,Z1+C1*D1,X3+A3*D3, 

Y3+B3*D3,Z3+C3*D3,NOBJ,IR) 
IF(I.NE. 1)CALL ELEM(NOBJ,TZ,DT,0) 
10 CONTINUE 

IF (IR+1. LT. N) RETURN 
C Falls keine brauchbare erste Bahn gefunden wurde: 
2 6 CONTINUE 

WRITE(6,2 8 )HA 
2 8 FORMAT(/' Die Bahnbestimmung aus 3 Beobachtungen unter der ', 
. 'Annahme 1/a =',F6.3, ' verlief erfolglos.'//) 
C Falls vorher schon eine Bahn aus 4 Beob. oder Kreisbahn versucht 
C wurde, oder eine Parabelbahn anzunehmen war, wird das Programm beendet. 
IF(HA.GT. 1 . D- 10. AND. IBAHN. GE.0)GOTO35 
WRITE(6,3 6 ) 
36 FORMAT ( ' Programm hält an.'//) 

CALL STOP 
35 IBAHN=3 
RETURN 
END 

SUBROUTINE KO(A,B,C,D,X,Y,Z,X0,Y0,Z0,R) 
IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
EXTERNAL DSQRT 
C Berechnung der heliozentrischen Koordinaten aus den geozentrischen 
SAVE 

X0=X+D*A 
Y0=Y+D*B 
Z0=Z+D*C 

R=DSQRT(X0*XO+YO*Y0+Z0*Z0) 
RETURN 



END 

SUBROUTINE LAMB ( AO , BO , HA, HAO , TK , IFERR ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

EXTERNAL DSIN, DASIN 
C Berechnet die Zwischenzeit zwischen zwei Örtern der Bahn nach dem 
C Lambertschen Theorem. A0=rl+r3+s ,B0=rl+r3-s , HA=l/a, HAO=DSQRT(HA) 

SAVE 

IFERR=0 

IF(HA.GT. .001D0)GOTOl 

TK=(A0**3-B0**3+.075D0*(A0**5-B0**5)*HA 
+.010D0*(A0**7-B0**7)*HA*HA) /6.D0 

RETURN 
1 CONTINUE 

A00=A0/2.D0*HA0 

BO0=B0/2.DO*HA0 

IF(A0 0.GE. 1.D0.OR.B0 0.GE. l.D0)GOTO3 

EPS=2 . D0*DASIN(A00 ) 

DEL=2.D0*DASIN(B00) 

TK=(EPS-DEL-DSIN(EPS)+DSIN(DEL) ) /HA/HAO 

RETURN 
3 CONTINUE 
C angenommene dl,d3, rl+r3 zu groß für HA 

IFERR=1 

RETURN 

END 

SUBROUTINE ELIP (NOBJ, Tl , T2 , T3 , AI , Bl , Cl , A2 , B2 , C2 , A3 , B3 , C3 , 
X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3,IBAHN) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

PARAMETER (LN=27 ,LU=16 ) 

DIMENSION D01(3) ,D03(3) 

EXTERNAL DASIN, DSQRT 

COMMON/BAHN/E(LU)/ZUSK/TZ /MASSE /AMO(LN) ,NZZ , GK/ANZAHL/NA, NB, DG, DT 
C Programm zur allgemeinen ersten Bahnbestimmung aus drei Beobachtungen 

DATA CBK /5.77551938D-3/ 

WRITE(6,3 ) 

WRITE ( 6 , 3 1 ) Tl , AI , B 1 , C 1 , XI , Yl , Z 1 , T2 , A2 , B2 , C2 , X2 , Y2 , Z2 , 
T3,A3,B3,C3,X3,Y3,Z3,GK 

30 FORMAT( //, IX, '<ESC! 17>' , 'Aus folgenden drei Beobachtungen wird', 
. ' eine erste Bahn bestimmt: ' , '<ESC!4>' ) 

31 FORMAT ( //, 10X, '<ESC!2 0>' , ' t(ET) ' ,9X, ' cos ( RA) *cos ( Dekl ) ' ,2X, ' sin' , 

. ' (RA)*cos(Dekl) ' ,4X, 'sin (Dekl) , ,13X,'X',17X,'Y',17X, , Z', '<ESC!4>' , 
.//,3(2X,F17.6,6(2X,F16.8),/),/,10X, 'Gaußsche Konstante ' ,F18.12,/) 
C Berechnung konstanter Hilfsgrößen. 

T01=(T3-T2)*GK 

T03=(T2-T1)*GK 

T02=T01+T03 

H22=2.D0*(A2*X2+B2*Y2+C2*Z2) 

R22=X2*X2+Y2*Y2+Z2*Z2 

H1=B3*C1-C3*B1 

H2=A3*C1-A1*C3 

H3=A3*B1-A1*B3 

H01=X1*H1-Y1*H2+Z1*H3 

H02=X2*H1-Y2*H2+Z2*H3 

H03=X3*H1-Y3*H2+Z3*H3 

H04=A1*(B2*C3-B3*C2)-A2*(B1*C3-B3*C1)+A3*(B1*C2-B2*C1) 

FN01=T01/T02 

FN03=T03/T02 

Vl=( l.DO+FN01)*T01*T03/6.DO 

V3=( l.D0+FN03)*T01*T03/6.D0 

HK=(H01*FN01-H02+H03*FN0 3) /H04 

HL=-(H01*V1+H03*V3)/H04 
C Lösung der Schlüsselgleichung 

D0=.0D0 

N=l 



D2=.0D0 

SW=.05D0 
2 5 CONTINUE 

D2=D2+SW 

R2=DSQRT(R22+H22*D2+D2*D2) 

F0=1.D0-(HK-HL/R2**3)/D2 

IF(D2-D0.LT.SW*1.01D0.OR.F0*F00.GT. . 0D0)GOTO3 

IF(F0*F0.GT.l.D0)GOTO4 
C Eine Wurzel zwischen D2-SW und D2 

IF(DABS(SW) .LT.l.D-5)GOT08 

SW=-SW/5.D0 

GOTO 3 
8 CONTINUE 

WRITE(6,999)D2 
999 FORMAT)/' Gefundene geozentrische Distanz: ' ,F8.5/) 

D0=D2 

FN1=FN01+V1/R2**3 

FN3=FN03+V3/R2**3 
C Verbesserung 

1 = 
1 CONTINUE 

1=1+1 

D2=(H01*FN1-H02+H03*FN3)/H04 

H11=A2*D2-FN1*X1+X2-FN3*X3 

H12=B2*D2-FN1*Y1+Y2-FN3*Y3 

H13=B3*A1-A3*B1 

D1=(B3*H11-A3*H12)/H13/FN1 

D3=-(B1*H11-A1*H12 )/H13/FN3 

T001=T1-CBK*D1 

T002=T2-CBK*D2 

T003=T3-CBK*D3 

CALL KO(A1,B1,C1,D1,X1,Y1,Z1,X01,Y01,Z01,R1) 

CALL KO(A2,B2,C2,D2,X2,Y2,Z2,X02,Y02,Z02,R2) 

CALL KO(A3,B3,C3,D3,X3,Y3,Z3,X03,Y03,Z03,R3) 

U1=DASIN(DSQRT( ( Y02*Z0 3-Z02*Y0 3 ) **2 + ( X02*Z03-Z02*X03 ) * *2 
+(X02*Y03-Y02*X03)**2 )/R2/R3) 

U3=DASIN(DSQRT( ( Y02*Z0 1-Z02*Y0 1 ) **2+ ( X02*Z0 1-Z02*X0 1 ) * *2 
+(X02*Y01-Y02*X01)**2)/R2/R1) 

U2=U1+U3 

CALL SEKTOR (R2 ,R3 , Ul , T003-T002 , Y2 3, GK) 

CALL SEKTOR (Rl ,R2 , U3 , T002-T001 , Y12 ,GK) 

CALL SEKTOR (R1,R3,U2,T003-T001,Y13,GK) 

FN1=(T003-T002)*Y13/(T0 03-T001)/Y2 3 

FN3=(T002-T001)*Y13/(T003-T001)/Y12 

IF(I.LT.6)GOT01 

D01(N)=D1 

D03(N)=D3 

N=N+1 

D2=D0 
4 SW=.05D0 
3 CONTINUE 

F00=F0 

IF(D2.LT.10.D0. AND . N . LE . 3 ) GOT02 5 
C Alle möglichen Lösungen innerhalb 10 AE gefunden. 
C Berechnung der zugehörigen Elemente 

IF(N.EQ. l)GOT026 

DO10I=N-l, 1,-1 

IF(I.NE. 1)WRITE(6, ll)DOl(I) ,D03(I) 

11 FORMAT(//' Weitere mögliche geozentrische Entfernungen',/, 

. ' bei der ersten Bahnbestimmung:',/,' Dl ',F10.7,' D3 ■ ,F10.7/) 
IF(I.NE. 1)WRITE(6, 12) 

12 FORMAT(/' Zugehörige Elemente: '/) 
D1=D01(I) 

D3=D03(I) 
T=T3-T1+(D1-D3)*CBK 



T0=T1-D1*CBK 

CALL ELE(T,T0,GK,X1+A1*D1,Y1+B1*D1,Z1+C1*D1,X3+A3*D3, 
Y3+B3*D3,Z3+C3*D3,NOBJ,IR) 

IF(I.NE. 1)CALL ELEM(NOBJ,TZ,DT,0) 
10 CONTINUE 

IF (IR+1. LT. N) RETURN 
C Falls keine brauchbare erste Bahn gefunden wurde: 
2 6 CONTINUE 

WRITE(6,3 3 ) 
33 FORMAT(/' Eine voraussetzungslose erste Bahnbestimmung aus', 
. ' drei Beobachtungen ',/, ' war erfolglos. 1 /) 

IBAHN=0 

E(2)=2.5D0 

RETURN 

END 

SUBROUTINE ELE ( T , Tl , GK , XPA , YPA, ZPA, XPD , YPD , ZPD , NOB J , IR ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

EXTERNAL DMOD , DSQRT , DS IN , DAS IN , DACOS , DATAN 

SAVE 

PARAMETER (LN=27) 

COMMON/ZUSK/EPOCHE/ANZAHL/N,NF,DG,DT/EQUIN/EQ,IRES,IUT,IEXZ 

COMMON/OG/X(3,LN) , DDX ( 3 , LN ) , DX ( 3 , LN ) 
CUNI NAMELI ST /BAHN1 /U , RADA , RADD , PAR , ANOM , EXZ 
C NAMELI ST /BAHN2 /AMO , PX , PY , PZ , QX , QY , QZ 
C Hilfsprogramm zur Bildung von Initialwerten aus Randwerten 

RR=4 5.D0/DATAN(1.D0) 

RADA=DSQRT(XPA*XPA+YPA*YPA+ZPA*ZPA) 

RADD=DSQRT(XPD*XPD+YPD*YPD+ZPD*ZPD) 

FGA=(XPA*XPD+YPA*YPD+ZPA*ZPD)/RADD/RADA 
C U=DACOS(FGA) 

U=DASIN( DSQRT ( ( YPA*ZPD-ZPA*YPD ) **2 + ( XPA*ZPD-ZPA*XPD ) **2 
+(XPA*YPD-YPA*XPD)**2 )/RADA/RADD) 

CALL SEKTOR (RADA, RADD, U,T,Y,GK) 

PAR= ( RADD*RADA*DSIN ( U ) * Y/ ( T*GK ) ) * * 2 

QA=PAR/RADA-1 .DO 

QD=PAR/RADD-1.D0 

Q=(QA*FGA-QD)/DSIN(U) 

ANOM=DATAN (Q/QA) 

IF ( QA . LT . . 0D0 ) ANOM=ANOM+4 . DO *DATAN ( 1 . DO ) 

EXZ=DSQRT ( QA*QA+Q*Q ) 

IF(EXZ.GT. .8D0)IEXZ=1 
C Nachfolgende Abfrage ist Ermessenssache (bei illussor. e zurück u. Kreisbahn) 
C und nur bei kleinen Planeten sinnvoll. 

IF(EXZ.LT. 1.1DO)GOT01 

IR=IR+1 
CUNI WRITE(6,BAHN1) 

WRITE(6,*)' U=',U,' RADA=' ,RADA, ' RADD=',RADD, 
' PAR=',PAR, ' ANOM= ' , ANOM , ' EXZ=',EXZ 

RETURN 
1 CONTINUE 

IF ( IEXZ . EQ . ) HALBA=PAR/ ( 1 . DO-EXZ *EXZ ) 

IF ( IEXZ . EQ . 1 ) HALBA=PAR/ ( 1 . DO+EXZ ) 

AMO=( 1. DO+EXZ )**2*GK/DSQRT(PAR) /PAR/2 .DO 

CALL WA (AMO, (l.D0-EXZ)/( 1. DO+EXZ) ,ANOM, 1) 

IF ( IEXZ . EQ . ) AMO=DMOD ( ( AMO+EPOCHE-Tl ) *GK/HALBA* * 1 . 5D0*RR 
.+720.D0,360.D0)/RR 
C Bei IEXZ=1 bzw. ist AMO die Zeit s.d.Perihel bzw. mittl .Anomalie für Tl. 

IF ( IEXZ . EQ . 1 ) AMO=AMO+EPOCHE-Tl 

RHO=FGA*RADD/RADA 

XP=XPD-(RHO*XPA) 

YP=YPD-RHO*YPA 

ZP=ZPD-RHO*ZPA 

R=DSQRT(XP**2+YP**2+ZP**2) 

A=QA/EXZ/RADA 

B=Q/EXZ/R 



C=Q/EXZ/RADA 

D=QA/EXZ/R 

PY=YPA*A-YP*B 

PZ=ZPA*A-ZP*B 

QY=YPA*C+YP*D 

QZ=ZPA*C+ZP*D 

PX=XPA*A-XP*B 

QX=XPA*C+XP*D 
C IF(EXZ.GT. 1.1D0)WRITE(6,BAHN2) 

CALL INVAL ( IEXZ , GK , DT , EPOCHE , AMO , HALBA ,EXZ,PX,PY,PZ,QX,QY,QZ, 
. EPOCHE* 1. DO, X( l,NOBJ) , X ( 2 , NOB J ) , X ( 3 , NOB J ) , 
DX ( 1 , NOB J ) , DX ( 2 , NOB J ) , DX ( 3 , NOB J ) ) 

RETURN 

END 

DOUBLE PRECISION FUNCTION W0(W) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

EXTERNAL DSQRT, DLOG, DSINH, DSIN , DASIN, DSQRT 
C Berechnet W0= ( 2*G-SIN( 2*G) ) /SIN(G) **3 aus W=SIN(G/2 ) **2 zwecks 
C Berechnung des Verhältnisses Sektor : Dreieck. Bei kleinem W 
C wird der erste, bei großem der zweite, direkte Weg gewählt. 

SAVE 

IF(DABS(W) .GT. l.D-3)GOT02 

UNC=1.D-10 

N=l 

C=4.D0/3.D0/(1.D0-W) 

W=W/( 1.D0-W) 

W0=C*( l.D0+W/5.D0-W*W/35.D0) 

X=C*W*W*W/105.D0 

1 CONTINUE 
S0=W0 

wo=wo+x 

IF(DABS(S0-W0) . LT. UNC) RETURN 

N=N+2 

IF(N.GT.20)GOTO2 

X=-N*X*W/(N+6) 

GOT01 

2 CONTINUE 
IF(W.LT. .0D0)GOTO3 

C elliptische Bewegung (W positiv) : 
G=2.D0*DASIN( DSQRT (W) ) 

W0=(2.D0*G-DSIN(2 .D0*G) )/DSIN(G)**3 
RETURN 

3 CONTINUE 

C hyperbolische Bewegung (W negativ) : 

G=2. DO *DLOG( DSQRT (-W)+DSQRT( 1.D0-W) ) 

W0=(DSINH(2 .D0*G)-2.D0*G)/DSINH(G)**3 

RETURN 

END 

SUBROUTINE SEKTOR( Rl , R2 , U , T , Y , GK ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

EXTERNAL DSQRT, DCOS 
C Hilfsprogramm zur Berechnung des Verhältnisses Sektor zu Dreieck. 

SAVE 

UNC=1.D-12 

AL=(R1+R2) /(4.D0*DSQRT(Rl*R2)*DCOS(U/2 .DO) )-.5D0 

AM=(T*GK)**2/(2.D0*DSQRT(Rl*R2)*DCOS(U/2.D0) )**3 
C Erste Richtung zwecks Konvergenz : 

Y=1.D0 

Y1=1.D0 

N=0 
1 CONTINUE 

Y0=Y 

W=AM/Y*Y-AL 

Y=(W+AL)*W0(W)+1.D0 

IF(DABS(Y-YO) .LT. UNC) RETURN 



IF(DABS(Y-YO) .GT.DABS(YO-Yl) . AND. N . GT . 3 ) G0T02 

Y1=Y0 

N=N+1 

G0T01 

2 CONTINUE 

C Zweite Richtung zwecks Konvergenz: 
Y=1.D0 
Y1=1.D0 
N=0 

3 CONTINUE 
Y0=Y 

W= ( Y- 1 . DO ) /WO ( W ) -AL 

Y=DSQRT(AM/(W+AL) ) 

IF(DABS(Y-Y0) . LT. UNC) RETURN 

IF(DABS(Y-Y0) .GT.DABS(YO-Yl) . AND. N .GT . 30 ) GOT04 

Y1=Y0 

N=N+1 

GOTO 3 

4 CONTINUE 

C Das Verhältnis Sektor : Dreieck konvergiert nicht. 
WRITE(6,5)AL,AM 

5 FORMAT(//' Bei der ersten Bahnbestinunung konvergiert das 1 ,/, 

.' Verhältnis Sektor : Dreieck nicht. ( 1= ■ ,F14 . 10 , ' ,m= ' , F14 . 10 , ■ ) ■ / , 
.' Programm hält an.'//) 

CALL STOP 

END 

DOUBLE PRECISION FUNCTION DTET(T) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

SAVE 

REAL DET(20) 

DATA DET/5. 8, 4. 8, 5. 1,2. 3, -0.4, 2. 7, 4. 1,-1. 9, -8. 3, -7. 6, -3. 9, 10. 5, 
.20.4,23.2,24.2,29.4,33.4,40.7,51.0,59.4/ 
C DTET berechnet ET-UT in Tagesbruchteilen. 
C DET ist ET-UT in Sekunden von 1800.5 bis 1990.5 f. alle 10 Jahre (n.Brouwer). 

IF(T.GT. 2448060. DO )DTET=(T-2408000. DO )/5.50D7 

IF(T. LT. 2378650. 0D0)DTET=3.5D-5+2 . 615D-13* ( T-24 15020 . DO )* *2 

IF(T. LT. 2378650. 0D0)GOTOl 

IF(T.GT.2 4 48060.0D0)RETURN 

T0=(T-2 37 8677.D0)/3 652.5D0 

J=MAX0 ( IDINT ( T0 ) +2 , 3 ) 

T1=J-T0-1 

DTET= ( DET ( J ) + ( DET ( J-l ) -DET ( J) ) *T1+ ( DET ( J-2 ) -2 . *DET ( J- 1 ) +DET ( J ) ) * 
.T1*(T1-1)/2.D0)/86400.D0 

IF(T.GT. 2434742. DO) RETURN 
C Korrektur auf DT vor 1954.0 n. van Flandern (nach DE200) 

1 DTET=DTET+( 5 . 88- . 3993*T0+ . 001 14*T0*T0 ) /86400 . DO 
C 1 DTET=DTET+(11.82-.9585*T0+.01227*T0*T0)/86400.D0 (nach DE102) 

RETURN 

END 

SUBROUTINE ELEM( I , T, AINT, J ) 

IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 

SAVE 

PARAMETER ( LN=27 ,LU=16 , LU1=LU+1 ) 

CHARACTER*2 IFT 

DOUBLE PRECISION M 

EXTERNAL DMOD , DSQRT , DCOS , DTAN , DATAN 
C Berechnung der Elemente aus Ort und Geschwindigkeit und Ausdrucken derselben 

COMMON/OG/W(3,LN) ,DDW(3,LN) , DW( 3 , LN) /MASSE/M ( LN ) ,NZENTZ 

COMMON/BAHN/E0(LU) ,NRBV, STAO/EQUIN/EQ, IRES , IUT, IEXZ 

COMMON/ZUSK/TZ , IEPHE , IOBS , IANFG , IENDE , IBV0 , NGR/ERR/MERR 

COMMON /EL /G(LU) ,E (LU ) /K2/C0 ( LU1 , LU1 ) , ST/IO/GD ( LU ) , IFMT 

COMMON/STIL/ISTIL,ISTIL0 

DIMENSION X00(3) ,DX00(3) 

EQUIVALENCE (X00(1),A),(X0 0(2),B),(X00(3),C) 

EQUIVALENCE (DX00( 1) ,DA) , (DX00(2) , DB ) , (DX00(3) , DC ) 



EQUIVALENCE (G(l) ,AMO) , ( G ( 2 ) , HA) , ( G( 3 ) ,EXZ) , 

(G(4) ,PER) , (G(5) ,AK) , (G(6) , BN ) , (GD(4),RR) 
C G sind die Kegelschnittelemente, die nur zur Berechnung ihrer mittleren 
C Fehler E und zum Ausdrucken gebraucht werden, GD die Umrechnungs- 
C faktoren der internen Werte der Elemente zu den auszudruckenden. 

DATA I DRUCK 101 

DATA IFT /'ET'/ 

A2=AINT**2 

AMO=(M(NZENTZ )+M(I) ) /A2 

IF(NZENTZ.NE.l)GOTO5 

D051K=1,3 

X00(K)=W(K,I) 

51 DX00(K)=DW(K,I)/AINT 
GOT052 

50 CALL DYANFZ ( -1 ,NZENTZ , T, AINT , X00 , DX00 ) 

D053K=1,3 
53 DX00(K)=DX00(K)/AINT 

IF(ISTIL.EQ.O.AND. ISTILO . EQ. 4 . AND . NGR . NE . ) 

AM0=AM0+(E0(7)+E0(8) )*M(NZENTZ )/A2*l.D-8 

52 CONTINUE 
TE=(EQ-1900.D0)/100.D0 

EPS=2 3.4 52 2 94 61D0-1.3 02 3 3D-2*TE-1.6 75D-6*TE**2+5.04D-7*TE**3 

EPS=EPS/RR 

CALL EKLAEQ(DB,DC,-EPS,DY,DZ) 

CALL EKLAEQ(B,C,-EPS,Y,Z) 

C1=Y*DZ-Z*DY 

C2=A*DZ-Z*DA 

C3=A*DY-Y*DA 

CALL RECPOL(C2,Cl, .0D0,C4,UNW,AK) 

CALL RECPOL(C3,C4, . 0D0 , SQP , UNW, BN ) 

P0=SQP*SQP/AM0 
C PO ist das Bahnparameter. 

R=DSQRT(A*A+B*B+C*C) 

CALL RECPOL(P0/R-l.D0,DSQRT(P0/AM0)/R* ( A*DA+B*DB+C*DC ) , .0D0, 
.EXZ,UNW,V) 

AMO=(EXZ+l .D0)**2/2.D0/P0*DSQRT(AM0/P0) 

CALL WA(AMO, (l.D0-EXZ)/( 1.D0+EXZ) ,V,1) 

IF( J.NE.O.AND.EXZ . GE . 1 . DO . AND . IEXZ .EQ . ) WRITE ( 6 , 14) 

IF( J.NE.O.AND.EXZ . GE . 1 . DO .AND . IEXZ .EQ.O (CALL STOP 
14 FORMAT(//' Während der Rechnung wird die Exzentrizität',/, 
1 größer als 1. Daher T,q statt M,a eingeben.'//) 
C Falls ab einer bestimmten Grenze für e Fallunterscheidung f . Ausdruckform: 

* IF( (TZ.EQ. .0D0.OR. J.EQ.O) .AND.EXZ.LE. .8D0)IEXZ=0 

* IF( (TZ.EQ. . 0D0.OR. J.EQ.O) .AND.EXZ.GT. . 8D0)IEXZ=1 

IF ( IEXZ. EQ.0)AMO=DMOD(AMO*DSQRT( AMO* ( 1 .D0-EXZ*EXZ ) **3/P0**3 ) 
.*RR+720.D0,360.D0) 
U=DATAN( (Y/A-DTAN(AK) )/( 1 . D0+Y/A*DTAN ( AK ) )/DCOS(BN) ) 
IF(U*Z.LT. . 0D0)U=U+4.D0*DATAN( 1.D0) 
PER=DMOD( (U-V)*RR+72 0.D0,360.D0) /RR 
IF(IEXZ.EQ.0)HA=P0/( 1 . DO-EXZ *EXZ ) 
IF(IEXZ.EQ.l)HA=P0/( 1.D0+EXZ) 
IF ( IEXZ . EQ . 1 ) AMO=-AMO 
IF( J.EQ.-1)RETURN 
IF ( J . NE . . AND . J . NE . 1 ) GOT03 
C Oskul .Elemente der gr. Planeten: J=0 nur drucken, J=10 auch stanzen 
IF( IEXZ. EQ.O. AND. IFMT.EQ. 1) 

WRITE(6, l)DATUM(T) , AMO, HA, EXZ , PER*RR, AK*RR, BN*RR 
IF (IEXZ. EQ.O. AND. IFMT. EQ.O) 

WRITE (6,31) DATUM ( T ) , AMO , HA, EXZ , PER*RR, AK*RR, BN*RR 
IF ( IEXZ. EQ. LAND. IFMT.EQ. 1) 
.WRITE(6, 11 ) DATUM) T) , DATUM ( T+AMO) , HA, EXZ , PER*RR, AK*RR, BN*RR 

IF ( IEXZ. EQ. LAND. IFMT. EQ.O) 
.WRITE (6, 31 ) DATUM) T) , DATUM ( T+AMO) , HA, EXZ , PER*RR, AK*RR, BN*RR 
11 FORMAT ( ' oskul. Bahnelemente: Epoche ',F10.1,' ET',' T ',F15.6, 
q ',F11.8,' e ',F10.8,' P ',F10.6,' K ',F10.6,' i ',F10.6) 



1 FORMAT ( ' oskul. Bahnelemente: Epoche ' ,F10.1,' ET ' , ' M ■ ,F10.6, 

a ',F11.8,' e ',F10.8,' P ',F10.6,' K ',F10.6,' i ',F10.6) 

31 FORMAT ( 1X,F11.2,F2 3.12,2X,F17.14,2X,F18.15,2X,3(F16.12,2X)) 

32 FORMAT (6X, 'm.F.',2X,F2 3.12,2X,F17.14,2X,F18.15,2X,3(F16.12,2X)) 
IF(MERR.NE.O.AND.IFMT.EQ. 1 ) WRITE ( 6 , 38 ) (E(N)*GD(N) ,N=1,6) 
IF(MERR.NE.0.AND.IFMT.EQ.0)WRITE(6,32 ) (E(N)*GD(N) ,N=1,6) 

3 8 FORMAT (6X, 'm.F.',36X,F10.6,lX,2(4X,F10.8),3(4X,F10.6)) 
IF(J.EQ.O) RETURN 
IF(IEXZ.EQ.0)WRITE(9,21)DATUM(T) , AMO, HA, EXZ ,M( 1)/M(I) , I, 

I,T,PER*RR,AK*RR,BN*RR 
IF ( IEXZ . EQ . 1 ) WRITE (9,22) DATUM ( T ) , DATUM ( T+AMO ) , HA, EXZ , 
M( 1)/M(I) , I,I,T,PER*RR,AK*RR,BN*RR 

21 FORMAT ( Fl 1. 2, F 18. 13, Fl 9. 15, Fl 8.1 5, F12. 3, 12,/, 
. I2,F10.1,3F18.13) 

22 FORMAT) Fl 1 .2,F18.8,F19.15,F18.15,F12.3,I2,/, 
. I2,F10.1,3F18.13) 

RETURN 
3 CONTINUE 

CALL AEQKST ( PER , AK , BN , EQ , PX , PY , PZ , QX , QY , QZ , ) 
IF(IBVO.NE.O.AND.NRBV.NE. 101 (WRITE (6, 10JNRBV 
10 FORMAT( /, IX, '<ESC! 17>' , 'Ergebnis der ',I2,'-ten Bahnverbesserung: ■ 
, '<ESC!4>' ,/) 
IF(IBV0.NE.0.AND.NRBV.EQ. 101 (WRITE (6, 15) 
15 FORMAT( /, IX, ' <ESC ! 17>' , 'Ergebnis der letzten Bahnverbesserung:' 
, '<ESC!4>' ,/) 
IF ( IBVO . EQ . ) WRITE (6,9) 
9 FORMAT ( / / ) 
C Falls bei NGLEI=0 nicht die mittl. Fehler d. Elemente für STA0:=1" ausgedr. 
C werden sollen, nachf . .OR. STAO .LE . 1 . D-8 bzw . AND. STAO .GT . 1 . D-8 hinzufügen 
IF ( NRBV . LT . 10 1 . OR . IBVO . EQ . ) IDRUCK=0 
IF(NRBV.EQ.101.AND.IBV0.NE.0)IDRUCK=1 
IF(IEXZ.EQ.l)GOT05 
WRITE ( 6 , 1 8 ) T , DATUM ( T ) , IDINT ( EQ ) 

18 FORMAT ( ' Epoche ■ ,F12.4,' = ' , F13 . 4 , 19X, ' ( ' , 14 , ' ) ' ) 
IF ( IDRUCK . EQ . ) WRITE (6,2) AMO , PER*RR , PX , QX , HA, 

.AK*RR,PY,QY,EXZ,BN*RR,PZ,QZ 

2 FORMAT ( ' M' ,F13.7,4X, 'Perihel' ,F13 .7,4X, 'P' ,F12.9,2X, 
.'Q',F12.9/' a' ,F14 .9, 3X, 'Knoten ' , F13 . 7 , 2X, 2F15 . 9/ ' e', 
.F13.8,4X, 'Neigung' ,F13.7,2X,2F15.9) 

IF(IDRUCK.EQ.1)WRITE(6, 12 ) AMO, PER*RR, PX, QX, E ( 1) , 
.E(4)*RR,HA,AK*RR,PY,QY,E(2) , E ( 5 ) *RR, EXZ , BN*RR, PZ , QZ , E ( 3 ) ,E(6)*RR 
12 FORMAT ( ' M',F13.7,4X, 'Perihel' ,F13.7,4X,'P',F12.9,2X,'Q',F12.9,8X, 
. 'Mittl. Fehler : dM' ,F13 . 7 , 4X, ' dP ' , F13 . 7/ ' a ' ,F14 . 9 , 3X, ' Knoten ', 
.F13.7,2X,2F15.9,2 3X,'da',F14.9,3X,'dK',F13.7/' e',F13.8,4X, 
. 'Neigung' ,F13.7,2X,2F15.9,23X,'de',F13.8,4X,'di',F13.7) 
GOTO 8 

5 CONTINUE 

WRITE(6, 19 )T,DATUM(T) , IDINT (EQ) 

19 FORMAT ( ' Epoche ■ ,F12.4,' = ' , F13 . 4 , 22X, ' ( ' , 14 , ' ) ' ) 
IF ( IDRUCK . EQ . ) WRITE (6,7) DATUM ( T+AMO ) , PER*RR, PX , QX , 

.HA,AK*RR,PY,QY,EXZ,BN*RR,PZ,QZ 

7 FORMAT ( ' T' ,F16.6,4X, 'Perihel' ,F13 .7,4X, 'P' ,F12.9,2X, 'Q' ,F12 .9/ ' q 
.' ,F17. 9, 3X, 'Knoten ' ,F13 . 7 , 2X, 2F15 . 9/ ' e ' ,F16 . 8 , 4X, ' Neigung ' , 
.F13.7,2X,2F15.9) 

IF(IDRUCK.EQ.1)WRITE(6, 17 ) DATUM ( T+AMO) , PER*RR, PX, QX, 
.E( 1) ,E(4)*RR,HA,AK*RR,PY,QY,E(2) , E ( 5 ) *RR, EXZ , BN*RR, PZ , QZ , 
.E(3) ,E(6)*RR 
17 FORMAT ( ' T',F16.6,4X, 'Perihel' ,F13.7,4X,'P',F12.9,2X,'Q',F12.9,8X, 
. 'Mittl. Fehler : dT ' ,F13 . 6 , 4X, ' dP ' , F13 . 7/ ' q ' ,F17 . 9 , 3X, ' Knoten ', 
.F13.7,2X,2F15.9,2 3X,'dq',F14.9,3X,'dK',F13.7/' e',F16.8,4X, 
. 'Neigung' , F13 . 7 , 2X, 2F15 . 9 , 23X, 'de' ,F13.8,4X, ' di ' ,F13.7 ) 

8 CONTINUE 

C Bei mehr als 4 nichtgrav. Kräften Ausdruckanweisung ändern 1 
IF(NGR.NE.0)WRITE(6,6) ( E0 ( N+6 ) *GD ( N+6 ) ,N=1,NGR) 

6 FORMAT(/' nichtgrav. Parameter: ' ,3(4X,E15.6) ) 



IF(NGR.NE.O.AND. (IDRUCK.EQ. 1) )WRITE(6, 16) ( E (N+6 ) *GD ( N+6 ) ,N=1,NGR) 
16 FORMAT ( ' mittl. Fehler: ' , 7X, 3 ( 4X,E15 . 6) ) 
C Bei IFMT=0 Elemente/Parameter genau ausdrucken 
IF ( IFMT . NE . ) GOT02 8 
IF(IEXZ.EQ.0)WRITE(6,30)AMO,HA,EXZ,PER*RR,AK*RR,BN*RR, 

(E0(N+6)*GD(N+6) ,N=1,NGR) 
IF(IEXZ.EQ.1)WRITE(6,30)DATUM(AMO+T) , HA, EXZ , PER*RR, AK*RR, BN*RR, 
(E0(N+6)*GD(N+6) ,N=1,NGR) 
30 FORMAT(/' gen. Werte : ■ ,F23 . 12 , 2X, F17 . 14 , 2X,F18 . 15 , 2X, 3 (F16 . 12 , 2X) , 
/, (12X,3F19.12) ) 
IF ( IDRUCK . EQ . 1 ) WRITE ( 6 , 34 ) ( E ( N ) *GD ( N ) , N= 1 , NGR+6 ) 
3 4 FORMAT (6X, 'm.F. ' ,2X,F2 3.12,2X,F17.14,2X,F18.15,2X,3(F16.12,2X), 

/, (12X,3F19.12) ) 
2 8 CONTINUE 
C Jetzt werden die neuen Elemente gleich den neuen Initialw. gesetzt. 
D04N=1,3 
E0(N)=W(N,I) 
E0(N+3)=DW(N,I) 
4 CONTINUE 

CALL INDIFF(I,NGR) 

IF ( NRBV . NE . 1 1 ) RETURN 

IF ( IDRUCK . EQ . 1 .AND . STAO . GT . 1 . D-8 ) 

WRITE(6,70)ST*DSQRT(2.D0)*2 062 64.8D0 
7 FORMAT ( 3 5X, 'Mittl. F. ' ,F7.2) 
IF(IUT.EQ.O)IFT='ET' 
IF ( IUT . NE . ) IFT= ' UT ' 

IF ( IEPHE . NE . . AND . IENDE-IANFG . GT . ) WRITE ( 6 , 7 1 ) IFT , IDINT ( EQ ) 
71 FORMAT( //35X, ' <ESC ! 17>' , ' * * * EPHEMERIDE * * * ' , ' <ESC ! 20> ' , // , 
. 16X, ' astrometrische Position ', 37X, ' Erdkoordinaten ' , 12X, 
. ' scheinb. Planetenkoordinaten ■ /,4X, 't( ■ ,A2, ■ ) ■ ,9X, 'RA(t) ' ,8X, 
. 'Dekl(t) ' ,6X, 'd(t) ■ ,4X, 'r(tO) ' ,5X, 'mag' , 5X, ■ X( t ) ' , 7X, ■ Y(t ) ' , 7X, 
. 'Z(t) ' ,6X, 'XO(tO) ' ,5X, ■ Y0(t0) ' ,5X, 'ZO(tO) ' , 
. /,24X, ' ( ' ,14, ' ) ' , '<ESC!4>' , //) 
RETURN 
END 

DOUBLE PRECISION FUNCTION DATUM (YDO) 
IMPLICIT DOUBLE PRECISION (A-H , O-Z ) 
C Berechnung des bürgerlichen Datums aus dem julianischen. 
C Programm von Prof .Dr .Dieckvoss , Hamburg. 
SAVE 

IF(YD0.GT. 1721119.D0)GOTO10 
DATUM=YD0 
RETURN 
10 CONTINUE 

YD=IDINT(YD0-1721118.5D0) 

JAHR=YD/365.25D0 

IF( JAHR. LT. 1583) YD=YD+2 . DO-IFIX ( JAHR/100. ) +IFIX ( JAHR/4 00 . ) 

JAHR=IDINT( (4 . DO* YD-1 . DO ) / 146097 . DO ) 

YD=4.D0*YD-1.D0-146097.D0*JAHR 

ITAG=IDINT ( YD/4 .DO ) 

YD=IFIX( (4.*ITAG+3. )/1461. ) 

ITAG=4.D0*ITAG+3.D0-14 61.D0*YD 

ITAG=(ITAG+4 )/4 

MONAT=(5*ITAG-3)/153 

ITAG=5*ITAG-3-153*MONAT 

ITAG=(ITAG+5)/5 

JAHR=100*JAHR+YD 

IF(MONAT.LT.10)GOTOl 

GOT02 

1 MONAT=MONAT+3 
GOT03 

2 MONAT=MONAT-9 
JAHR=JAHR+1 

3 DATUM= JAHR* 1 . D4+MONAT* 1 . D2+ITAG+DMOD (YD0+.5D0,1.D0) 
RETURN 



END 

SUBROUTINE FK ( T, RA, DE , RO , DO , 10 ) 

DOUBLE PRECISION T, RA, DE , RO , DO 

SAVE 

REAL DRD(37) ,DDD(37) ,DRR(7,7) , DDR (7, 7) 

EXTERNAL SIN, COS, TAN 
C Programm zur Umwandlung von FK4-Positionen in das FK5-System 
C E,P,C sind Schiefe der Ekliptik, Länge des Sonnenperihels und Konstante 
C der ellipt. Aberration zur Beobachtungsepoche des Fundamentalkataloges . 
C 1 = 1 zum Umwandeln von FK4-Pos. in das FK5-System, bei I = -l umgekehrt. 
C Bei 1=2 sind bereits mittl .Korr .der Eigenbew. bis 1950 (wegen 
C DK,DN), bei 1=3 die lokalen Korrekturen angebracht 

DATA E,P,C,RR / 0.4092, 4.909, 0.34282, 206264.8 / 

DATA E0,DK,DN / 0.5250, 0.2358, -0.4377 / 



c 


Zonenabhängige Korrekturen in 


RA und Dekl 


für 


Dekl 


=-90,-85, 


c 


+90 Grad 




in Einheiten 


von C 


.001s 


bzw 


01" 








DATA DRD 


/ 


+ 0., 


-7. ,-18 


,-22 


,-21. 


-17. , 


-9., 


-4. , 


+0., +5., 








+ 8., 


+1., -6 


, -1 


, +4. 


+ 8., 


+ 7., 


+ 6. , 


+4. , +2. , 








-2., 


-3., -4 


, -5 


, -3. 


-2., 


-3., 


-2. , 


-1., +0., 








+ 0., 


+1., +1 


, +2 


, +3. 


+ 1. , 


+ 0./ 








DATA DDD 


/ 


+ 0., 


-3., +3 


, +8 


,+12. 


+ 7. , 


-2., 


-2. , 


-3., -9., 




. 




-4., 


-2., -1 


, +0 


, +3. 


+4. , 


+4., 


+ 5. , 


+3., -4., 




. 




-1. ,+10. ,+12 


, -3 


, -7. 


+ 1. , 


0., 


0. , 


0., 0., 








0., 


0., 


, 


, 0. 


0., 


0./ 






c 


Rektaszensionsabhaengige Korrekturen 


bei RA=0,1 




6 rad für 


c 


die Deklinationen 


+1.5,+1 


0,+0. 


5, 


-1.5 


rad 






c 


RA 


= 





1 


2 


3 


4 


5 


6 






DATA DRR 


/ 


-2. 


-3. , 


-1- , 


+ 0., 


+2., 


+ 3. 


-1 










-2. 


-2., 


+ 1. , 


-1- , 


+ 0., 


+ 5. 


-2 










-1. 


-2. , 


+ 0. , 


+ 0., 


+ 1. , 


+ 3. 


+ 










+ 1. 


+ 1. , 


+ 0. , 


-1- , 


-2., 


+ 3. 


-1 










-2. 


+ 0., 


+ 2. , 


+ 0., 


+ 0., 


-1. 


-2 










-3. 


-1- , 


+ 0. , 


+ 3., 


+ 0., 


-1. 


-1 










-4. 


-2. , 


+ 0. , 


+ 3., 


+2., 


+ 0. 


-3 


/ 




DATA DDR 


/ 


-6. 


-4. , 


-2. , 


+ 3., 


+5. , 


+ 1. 


-5 










-4. 


-3., 


+ 1. , 


+ 2., 


-1- , 


+ 0. 


-2 










-2. 


-3., 


+ 1. , 


+ 1. , 


+ 0., 


+ 1. 


+ 










-1. 


-6., 


-2., 


+ 2., 


+5., 


+ 6. 


+ 










-2. 


-7. , 


+ 1. , 


-1- , 


+ 0., 


+4. 


+ 1 










0. 


0., 


0. , 


0. , 


0., 


0. 













0. 


0., 


0., 


0. , 


0. , 


0. 





/ 



Dekl.= 



1 


5 


1 








5 











5 


1 





1 


5 


1 


5 


1 








5 











5 


1 





1 


5 



C (für ca. 1970, lok. Fehler in Eigenbew. nach Gliese vernachlässigbar klein). 

R=SNGL(RA) 

D=SNGL(DE) 

T0=SNGL(T-2433282.423D0)/36525. 
C Hauptglied der elliptischen Aberration 

DD=C*(COS(P)* (COS(D)*SIN(E)-SIN(D) *COS ( E ) *SIN ( R) )+SIN(P)* 
.SIN(D)*COS(R) ) 

DR=C* ( SIN ( R ) *SIN ( P ) +COS ( R ) *COS ( P ) *COS ( E ) ) /COS ( D ) 
C Berücksichtigung der globalen Korrekturen FK5-FK4 infolge 
C der Änderung von Äquinoktium und Präzession (E=+0 . 525"+l . 275 "*T0 , 
C dLambda=- . 03" , dPl=+1.10", D bei den lokalen Korr. berücksichtigt) 

DR=DR+E0 

IF(I0.EQ.2 )GOT01 

DR=DR+(DK+DN*SIN(R)*TAN(D) )*T0 

DD=DD+DN*COS(R)*T0 

1 CONTINUE 

C lokale Korrekturen 
IF(I0.EQ.3)GOTO2 
I1=NINT( 11.46*D)+19 
I2=4-NINT(2 .*D) 
I3=NINT(R)+1 

DR=DR+ ( DRD (II) +DRR ( I 3 , I 2 ) ) * . 1 5 /COS ( D ) 
DD=DD+(DDD(I1)+DDR(I3,I2) )*.010 

2 CONTINUE 



Ggf. Anbringen sonstiger systemat .Korrekturen 

IF(I0.GT. 0)1=1 

IF(I0.LT.0)I=-1 

R0=RA+DR/RR*I 

D0=DE+DD/RR*I 

RETURN 

END 

SUBROUTINE INV(V,N) 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 

SAVE 

PARAMETER (LU=16) 
Programm zum Invertieren von Matritzen nach dem Verfahren von Gauß- Jordan. 

DIMENSION V(LU,LU) ,IP(LU) ,IR(LU) 

DATA K , L / , / 

D01J=1,N 

IP(J)=0 

1 CONTINUE 
D=1.D0 
DO10M=l,N 
VMAX=0.D0 
D06J=1,N 
IF(IP( J) )6,2,6 

2 D05I=1,N 
IF(IP(I) )5,3,5 

3 VH=DABS(V(I, J) ) 
IF(VMAX-VH)4,5,5 

4 VMAX=VH 
K=I 
L=J 

5 CONTINUE 

6 CONTINUE 

IF(VMAX.LT. l.D-19)GOT015 
IP(L)=K 
IR(M)=L 
D=D*V(K,L) 
PVT=1.D0/V(K,L) 
V(K,L)=1.D0 
Teilen durch das Diagonalelement. 
D07J=1,N 
T=V(K, J) 
V(K,J)=V(L,J) 

7 V(L,J)=T*PVT 
D09I=1,N 
IF(I.EQ.L)G0T09 
T=V(I,L) 
V(I,L)=0.D0 

Gaußsumme 
D08J=1,N 

8 V(I, J)=V(I, J)-V(L, J)*T 

9 CONTINUE 

10 CONTINUE 
D012J=1,N 
M=N-J+1 
L=IR(M) 
K=IP(L) 

IF(K.EQ.L)GOT012 
D=-D 

D011I=1,N 
T=V(I,L) 
V(I,L)=V(I,K) 
V(I,K)=T 

11 CONTINUE 

12 CONTINUE 
RETURN 

15 CONTINUE 



CUNI 
CUNI 
CVAX 



CATA 
$UNI$VAX 
CATA 
CATA 
CATA# 
CATA* 
CATA* 
CATA* 
CATA# 
$ATA* 
$ATA# 
CATA 
CATA 
CATA 
CATA 



H:IM:IS als Zeichenkette 

rn herausnehmen oder ersetzen 



'9'/ 



C Die zu invertierende Matrix ist Singulair. 

WRITE(6, 16 ) 
16 FORMAT(/' Während der Rechnung tritt eine singulare Matrix auf. 
./,' Das Programm wird abgebrochen.'/) 

CALL STOP 

END 

SUBROUTINE NOCH 
C Ausgabe des noch freien Speicherplatzes (nur bei Atari !!) 

SAVE 

INTEGER*4 RC,SYS,PAR32 
CATA# INTEGER* 4 RC , ATARI ,MALLOC , PAR3 2 

INTEGER*2 PAR(3),PAR1 

EQUIVALENCE ( PAR ( 1 ) ,PAR1) , (PAR(2) ,PAR32) 

DATA PAR1,PAR32 /72,-l/ 
CATA# DATA MALLOC,PAR32 /2626,-l/ 

RC=SYS(PAR) 
CATA# RC=ATARI(MALLOC,PAR32) 

WRITE(7, 1)RC 

1 FORMAT ( IX, 17, ' bytes noch frei',/) 
RETURN 

END 

CHARACTER*12 FUNCTION IZEIT(K) 
C Übergibt die Rechenzeit seit Programmstart I 
C Dieses Unterprogramm bei FORTRAN V - Compile 

SAVE 

CHARACTER*1 CH(10) 

DATA CH / ' 0' , ' 1' , ' 2' , ' 3' , ' 4' , 

DATA 10 /0/ 

CALL UHR ( I ) 

1=1/1000 

I=NINT ( SECNDS (0.0)) 

CALL TIME (IH, IM, IS, J) 

I=IS+60*(IM+60*IH) 

CALL TIME(I) 

IF(I0.EQ. 0)10=1 

I=MOD(I-I0, 86400) 

IH=I/3600 

IH1=IH/10+1 

IH2=MOD(IH,10)+1 

IM=I/60-IH*60 

IM1=IM/10+1 

IM2=MOD(IM,10)+1 

IS=I-3600*IH-60*IM 

IS1=IS/10+1 

IS2=MOD(IS,10)+1 

IZEIT=' * ' //CH(IH1)//CH(IH2) // 
//CH(IS1)//CH(IS2)//' **' 

RETURN 

END 

SUBROUTINE FILE (10) 
Sucht zur Vermeidung der Überschreibung ande 
kanal 10 ein noch freies File J (J=I oder 1 + 
simult. Verwendung durch zwei gleichzeitig 1 
File noch einmal geschlossen und dabei fest 
File sequentiell und formatiert. 

SAVE 

CHARACTER*4 IFILE 

LOGICAL L 

INQUIRE ( UNIT=I , OPENED=L ) 

IF(L)RETURN 

1=10 

2 CONTINUE 
ENCODE(4,7,IFILE)I 
WRITE(IFILE,7 )I 

CUNI7 FORMAT(I4) 



$UNI 

$UNI 

$VAX 

$ATA* 

$ATA* 

$ATA# 



' //CH(IM1)//CH(IM2) // ' : 



rer Daten für den Ausgabe- 
1 oder 1 + 2 . . . ) . Zur Vermeidung 
aufende Rechnungen wird das 
eingerichtet . 



CUNI 



'NEW ,ERR=1) 



' UNKNOWN' ,ACCESS='SEQUENTIAL' 



7 FORMAT (12, ' . ' ) 

INQUIRE ( FILE=IFILE , EXIST=L ) 

IF(L)GOT01 
CUNI OPEN ( UNIT=I0 , FILE=IFILE , STATUS = 
CUNI CLOSE(UNIT=I0,STATUS='FREE ' ) 
CVAX CLOSE(UNIT=I0,STATUS='KEEP' ) 

OPEN ( UNIT=I0 , FILE=IFILE , STATUS= 

• ) 

CUNI . , MRECL=2 0) 
CVAX . , RECL=80) 

WRITE(6,4)I0,IFILE 
4 FORMAT(/' Ausgabeeinheit ',13,' schreibt auf File ',A4/) 

RETURN 
1 1=1+1 

GOT02 

END 

SUBROUTINE START 
C Initialisierung des Programmes je nach Rechenanlage (z.Bsp. Bild- 
C Schirminitialisierung und Abfrage der Ein-/Ausgabedatei bei Atari) 

CHARACTER*16 FILE5,FILE6 

PRINT * , CHAR (27), CHAR (99), CHAR ( 1 ) , CHAR (27), CHAR (98), CHAR ( ) 

PRINT *,' ■ ,CHAR(7 ) ,CHAR(27) ,CHAR(69) 

WRITE(*, 12 ) 

FORMAT (/,' Ein- und Ausgabedatei ? ( Eing.d., {CR},', 
' Ausg.d. , {CR} )',/,'>') 

READ(*, 11JFILE5 

WRITE(*, 14 ) 

READ(*, 11JFILE6 

FORMAT (AI 6 ) 

FORMAT ( 1H+, '>' ) 

OPEN ( UNIT=5 , FILE=FILE5 , BLANK= ' ZERO ' , STATUS= ' UNKNOWN ' ) 

OPEN ( UNIT=6 , FILE=FILE6 , STATUS= ' UNKNOWN ■ ) 

OPEN ( UNIT=7 , FILE= ' CON : ' , STATUS= ' UNKNOWN ■ ) 

OPEN ( UNIT=7 , FILE= ' CON . ■ , STATUS= ' UNKNOWN ' ) 

OPEN ( UNIT=7 , FILE= ' SYS$OUTPUT : ' , STATUS= ' UNKNOWN ■ ) 



$UNI$VAX 
$UNI 
$VAX 
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CUNI 
$VAX 
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CATA 
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CATA 
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CATA 
CATA 
CATA,C77 
CATA,C77 

$ATA 
$UNI,C77 
$VAX 
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WRITE(6,*)' , ,'<ESC!4>' 

CALL NOCH 

RETURN 

END 

SUBROUTINE STOP 
C Programmbeendung je nach Rechenanlage ( z .Bsp. Bildschirminvertierung 
C aus und Glocke bei Atari) 

WRITE(6,*)' ','<ESC!0>' 

PRINT * , CHAR (27), CHAR (98), CHAR ( 1 ) , CHAR (27), CHAR (99), CHAR ( ) $ATA 

PRINT *,' ',CHAR(7) $ATA 

STOP 

END 

SUBROUTINE BD8A(NF , ANF ,NANZ , DT ) 

IMPLICIT DOUBLE PRECISION ( A-H , O-Z ) 
C Größen für das File für die Plantenkoordinaten, die bei der 
C Integration geschrieben werden sollen. NF Index des 

C letzten Planeten (als erster: Koordinatendifferenz Baryzentrum-Erdmitte) 
C ANFP so gewählt sodaß NREC=NINT( (T-ANFP) /DTP ) . 

C Der erste Record enthält NP, ANFP, NRECP, DTP, der zweite d. Massen *DTP**2 
C Wird in SUBR.BESCH beschrieben falls ID.LT.O eingegeben wurde. 

PARAMETER ( LN=27 ,LI=1 1 , LI0=LI/2+l ) 

COMMON/BANDl/NPl,IBAND/BAND/NP, ANFP, DTP, NRECP, IUNIT/MASSE /AM (LN) 

NP=NF 

NRECP=NANZ+LI 

DTP=DT 

ANFP=ANF-LI *DTP 

CALL BD8C(1,IUNIT) 

RETURN 

END 

BLOCK DATA BDBDA 



SAVE 

PARAMETER (LN=27) 

C0MM0N/BAND1/NP1 , IBAND 

DATA NP1, IBAND /2,0/ 

END 

SUBROUTINE BD8B ( IFRECT, DT ) 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Falls Planetenkoordinaten von Band oder Datei zu lesen (f. Planet 2 bis NPO ) : 
C Je Zeitpunkt e .Eingabezeile: x,y,z Baryz . -Geoz . , x,y,z 2.bis NPter Planet 
C Siehe SUBR.BD8A. Bei IFRECT=10 Initialisierung einer Fortsetzungsdatei 
C von SUBR.BD80 aus, die denselben Namen wie die vorherige haben muß. 
C IFILO Name d. Datei (einstellige Zahl, i.d.R. 8), IDISK Laufwerk (nur Atari) 

SAVE 

PARAMETER (LN=27) 

COMMON/BAND1/NP1, IBAND, NPO /MASSE /AM (LN) 

COMMON/BAND/NP,ANFP,DTP,NRECP/DISK/IDISK 

CHARACTER*1 IDISK 

IF ( IFRECT . NE . 1 ) READ ( 5 , 1 ) IFILO , NPO , IDISK 

1 FORMAT(Il,I2, IX, AI) 
CALL BD8C(0, IFILO) 

WRITE ( 6 , 2 ) NPO , IFILO , NP , ANFP+DTP , DTP , NRECP 

2 FORMAT (/, 13, ' Planeten von Datei ',11,' lesen.',/, 

. ' Inhalt der Datei: Planeten: ', 14 ,' , Anfang: ',F11.2, 

. ', Schrittweite: ' ,F6.2,' Tage, Länge: ',17,' Schritte',//) 

F=(DT/DTP) **2 

IF(DABS(F-NINT(F)*1.D0) . GT . l.D-5)GOT011 

IF(NP0.GT.NP)GOTO12 

DO3I=l,NP0 

3 AM(I)=AM(I)*F 
NP1=NP0+1 

IF ( IFRECT . NE . 1 ) IFRECT=IFRECT-2 
RETURN 

11 WRITE (6, 13) 

13 FORMAT(/' Schrittweiten f. Integration und Planetendatei ' , 

1 passen nicht zusammen. Abbruch.'//) 
CALL STOP 

12 WRITE (6, 14) 

14 FORMAT(/' Weniger Planeten auf Datei als gelesen werden sollen.', 
. ' Abbruch. ' //) 

CALL STOP 

END 

SUBROUTINE BD8 0(IO) 
CUNI VIRTUAL /BD800/ 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
C Übertragen eines Teiles (Zeile NREC1+1 bis NREC2 ) des Planetenfiles (8) 
C auf BD800 (IO=0) oder umgekehrt (10=1), d.h. einen Block von max.LREC Zeilen 
C Zeilenlänge LG=28 doppeltgenaue Worte. Die ersten zwei Zeilen enthalten 
C Informationen über Länge des Files usw und die Planetenmassen, dann 
C folgen die Daten. NREC1 ,NREC2 ,NREC werden von der ersten Datenzeile aus 
C gezählt (die NREC=1 hat, davor also LEER=2 andere Zeilen). 

C Maximal erlaubte Länge einer zu schreibenden Datei MXREC Zeilen. Beim lesen 
C muß MXREC ein Vielfaches von LREC sein, falls Daten am Schluß vollständig 
C benötigt. MXREC richtet sich nach dem Fassungsvermögen von Diskette/Platte/ 
C Band, wohin die Datei soll. Bei Eingabe von NRECP>MXREC wird die Datei 
C in mehrere Dateien aufgeteilt die eigenständig verwendbar sind. Daher wird 
C NRECP=MXREC gesetzt. 

C File lesen (0) bei NREC .LE .NREC1 .OR.NREC .GT.NREC2 : von NREC1+1 bis NREC2 
C File schreiben (1) bei NREC=NREC2 von NREC1+1 bis NREC2 und am Schluß 
C von NREC1+1 bis NREC 
C I/O-Zeiger f. nächste Zeile auf dem File (NRECN) steht stets bei NREC2+1 

SAVE 

PARAMETER ( LN=2 7 ,LG=2 8 , LEER=2 ) 

PARAMETER (LREC=180) CATA 

CUNI PARAMETER (LREC=90000) 

COMMON/BD8 00/BD8(LG,LREC)/BD8 00/NREC1,NREC2,NREC/DISK1/MXREC 



COMMON/ANZAHL/N , NF , DG , DT 

COMMON/BAND/NP,ANFP,DTP,NRECP,IUNIT,IDIR/MASSE/AM(LN) 

CHARACTER*12 IZEIT CATA 

IF(IO.NE.0)GOTO6 
C File einlesen 

1 IF(IDIR.NE. 1 )NRECN=NREC2+1 

IF ( NREC . LT . 1 . OR . NREC . GT . NRECP ) GOT05 

NREC1=( (NREC-1)/LREC)*LREC 

NREC2=MIN ( NREC 1+LREC , NRECP ) 

NZ=NREC2-NREC1 

WRITE(7,71 )IZEIT(0) ,NREC ,NREC1+1 , NREC2 CATA 

71 FORMAT ( ' *',A12,' Zeile:', 16,' Planeten lesen von/bis :', 216 ) CATA 
IF(IDIR.EQ.l)GOT03 

IF ( NRECN . NE . NREC1+ 1 ) CALL BD8M( IUNIT , NRECN , NREC 1+1 ) 
D02IZ=1,NZ 

2 READ (IUNIT) (BD8(IS,IZ) ,IS=1,LG) 
GOTO 12 

3 IREC0=NREC1+LEER 
D013IZ=1,NZ 

13 READ ( IUNIT, REC=IRECO+IZ) (BD8(IS,IZ ) ,IS=1,LG) 
12 IF(NRECP.LT.LREC)CLOSE(IUNIT) 

WRITE(7,*) ' * ' , IZEIT(O) , ' lesen fertig' CATA 

RETURN 

5 CONTINUE 

CLOSE ( UNIT=IUNIT , STATUS= ' KEEP ■ ) 

T=ANFP+NREC*DTP $ATA 

PRINT *,CHAR(7) $ATA 

WRITE(*,4)T $ATA 

4 FORMAT(/' Planetenkoordinaten für T=',F11.2,' nicht mehr in ', $ATA 
. 'der Datei. ' /) $ATA 

PAUSE ' Neue Diskette eingelegt ( {y} ) oder Abbruch ( {n} ) ?' $ATA 

CALL BD8B(10,DT) ' $ATA 

NREC=NINT ( ( T-ANFP ) /DTP ) $ATA 

GOTOl $ATA 

CUNI WRITE(6,4)NREC,NRECP $UNI$VAX 

CUNI4 FORMAT(/' Beim Lesen des Planetenfiles liegt die Zeilennummer ' ,/,$UNI$VAX 
CUNI . ' außerhalb des Files. Abbruch. ',/, 2X, 218 ,/ ) $UNI$VAX 

CUNI CALL STOP $UNI$VAX 

6 CONTINUE 

C File schreiben 
NZ=NREC-NREC1 
WRITE(7,72 )IZEIT(0) ,NREC-NZ+1 ,NREC CATA 

72 FORMAT ( ' *',A12,' Planetenkoord. schreiben von/bis :', 216 ) CATA 
IF(IDIR.EQ.l)GOT07 

D09IZ=1,NZ 
9 WRITE( IUNIT) (BD8(IS,IZ) ,IS=1,LG) 
GOTOl 9 

7 IREC0=NREC1+LEER 
D08IZ=1,NZ 

8 WRITE( IUNIT, REC=IRECO+IZ) (BD8(IS,IZ ) ,IS=1,LG) 
19 NREC1=NREC1+LREC 

NREC2=MIN ( NREC2+LREC , NRECP ) 

WRITE(7,*j ' * ' , IZEIT(O) , ' schreiben fertig' CATA 

IF ( NREC 1 . GE . MXREC ) GOT02 
RETURN 
2 CONTINUE 

CLOSE ( UNIT=IUNIT , STATUS= ' KEEP ■ ) 

PRINT *,CHAR(7),' Datei mit Planetenkoordinaten wird zu groß.' $ATA 
PAUSE ' Neue Diskette eingelegt ( {y} ) oder Abbruch ( {n} ) ?' $ATA 

ANFP=ANFP+NREC1*DTP $ATA 

NRECP=NRECP-NREC1 $ATA 

CALL BD8C(1, IUNIT) $ATA 

RETURN $ATA 

CUNI WRITE(6,22) $UNI$VAX 

CUN22 FORMAT(/' Datei mit Planetenkoord. wird zu groß. Abbruch.'/) $UNI$VAX 



CUNI CALL STOP $UNI$VAX 

END 

SUBROUTINE BD8C ( 10, IFILO ) 
C Initialisierung des Planetenfiles. Siehe SUBR. BD80 ,BD8A, BD8B . 
C 10=0 bzw. 1 falls Datei lesen bzw. erzeugen. 

C RECL= LG Langworte unform. , in OPEN-Anweisung ggf. je nach Anlage ändern. 
C Die Größe des Files ist/wird ( 8*LG+4 ) *NRECP+100+(LEER-2 ) *2 bytes (sequ.) 
C bzw. 8*LG*(NRECP+2 ) bytes (direct), d.h. ca. 3695 Zeilen pro Disk.m. 828Kb. 
C Bei LEER=2 Schleifen 3 und 4 (s.u.) überflüssig, sonst einbauen ! 
C NRECOO Zeile, die i.d. aktuellen Datei zuletzt gelesen wurde ( s . SUBR.BARY) 
C /BD8000 von /BD800 trennen da dann bei virt. Anlagen erh. weniger Seitenw. 
CUNI VIRTUAL /BD800/ 

IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

PARAMETER ( LN=2 7 , LG=2 8 , LG2 = 2 *LG , LEER=2 , LEER0=LEER-2 ) 

PARAMETER (LG8=LG* 8 ,LREC=180 ) CATA 

CUNI PARAMETER (LREC=90000) 

CHARACTER*4 IFILE 

CHARACTER*1 IDISK 

C0MM0N/BAND/NP,ANFP,DTP,NRECP,IUNIT,IDIR/DISK/IDISK/DISK1/MXREC 

COMMON /MAS SE / AM ( LN ) 

COMMON/BD8 00/BD8(LG,LREC)/BD8 00/NRECl,NREC2,NREC,NREC00 

DATA ITEST /O/ 

NREC1=0 

NREC2=0 

IF(IO.EQ.O)NRECOO=-1 

IF(IO.EQ. 1 )NREC2=MIN(LREC, NRECP) 

IF ( 10 . EQ . . OR . NRECP . LE . MXREC ) G0T02 2 

WRITE ( * , 2 3 ) NRECP , MXREC 
23 FORMAT(/,' Gewünschte Dateilänge ',16,' ist größer als die', 
vorgegebene ',/, ' Disketten-/Plattenkapazität ',16,/, 
Soll die Datei aufgeteilt ( {CR} ) oder die Kapazität', 
ignoriert werden ( {1} ) ?',/,' [im ersten Fall ist während ' , 



der Rechnung Diskettenwechsel nötig !]',/,' >') 
CUNI . ' Abbruch. ' , /) 
CUNI STOP 

READ (*, 24) ITEST 
2 4 FORMAT (II) 

IF ( ITEST . EQ . 1 ) MXREC=NRECP 
IF ( ITEST. EQ.l) WRITE (*, 25) 
IF ( ITEST. NE. 1) WRITE (*, 26) 

25 FORMAT(' Vorgegebene Kapazität wird ignoriert.',/) 

26 FORMAT(' Diskettenwechsel während der Rechnung nötig !!',/) 
22 CONTINUE 

IF(IO.EQ. 1) WRITE)*, 31) 
31 FORMAT (/,' Laufwerk für zu erzeugende Planetendatei ?',/,' >') 

IF ( 10. EQ. 1 (READ (*, 30) IDISK 
30 FORMAT (AI) 
CUNI ENCODE(4,5,IFILE)IFIL0 

WRITE ( IFILE , 5 ) IDISK, IFILO 
5 FORMAT( IX, AI, ' : ' ,11) 
CUNI WRITE(IFILE,5)IFIL0 
CUNI5 FORMAT(I4) 
CVAX5 FORMAT (II, ' . ' ) 

IF(I0.EQ. 1)WRITE(6,20)IFILE 
IF(I0.EQ. 1)WRITE(7,20)IFILE 
20 FORMAT ( ' Datei mit Planetenkoordinaten: ',A4,/) 
IF(IDIR.EQ.l)GOTO10 

OPEN ( UNIT=IUNIT, FILE=IFILE , STATUS= ' UNKNOWN ' , ACCESS= ' SEQUENTIAL ' 
. , FORM= ' UNFORMATTED ' ) 
CUNI . , RFORM='FB' ,MRECL=LG2,BLOCK=1792 ) 
CVAX . , RECL=LG2, FORM= ' UNFORMATTED ' ) 
IF(I0.EQ. l)GOT01 
READ ( IUNIT ) NP , ANFP , DTP , NRECP 
READ (IUNIT) (AM(I) , 1=1, NP) 
C DO3I=l,LEER0 



$ATA 
$ATA 
$ATA 
$UNI 
$UNI 
$ATA 
$ATA 
$ATA 



$ATA 
$ATA 
$ATA 
$ATA 

$ATA 
$ATA 
$UNI,VAX 
$UNI 
$VAX 

CATA 



$ATA 
$UNI 
$VAX 



C 3 READ(IUNIT) 
RETURN 

1 WRITE ( IUNIT ) NP , ANFP , DTP , MIN ( NRECP , MXREC ) 
WRITE (IUNIT) (AM(I) ,I=1,NP) 

C DO4I=l,LEER0 

C 4 WRITE (IUNIT) 

RETURN 

10 CONTINUE 

OPEN ( UNIT=IUNIT, FILE=IFILE , STATUS= ' UNKNOWN ■ , ACCESS= ' DIRECT ' 
. , RECL=LG8 ) $ATA 

CUNI . , RECL=LG2 ) $UNI$VAX 

IF(IO.EQ. l)GOT011 

READ (IUNIT , REC=1 ) NP , ANFP , DTP , NRECP 
READ ( IUNIT, REC=2 ) (AM(I) ,I=1,NP) 
RETURN 

11 CONTINUE 

WRITE ( IUNIT , REC=1 ) NP , ANFP , DTP , MIN ( NRECP , MXREC ) 

WRITE ( IUNIT, REC=2 ) ( AM( I ) , 1=1 ,NP ) 

RETURN 

END 

BLOCK DATA BDBDC 

DOUBLE PRECISION ANFP, DTP 

COMMON/BAND/NP, ANFP, DTP, NRECP, IUNIT, IDIR/DISK/IDISK/DISK1 /MXREC 

CHARACTER*1 IDISK 
C Bei VAX/UNIVAC: Bei Wechsel zw. IDIR=1 und alte Planetendateien löschen !! 

DATA IUNIT, IDIR /8,1/ $ATA$VAX 

CUNI DATA IUNIT, IDIR /8,0/ $UNI 

CUNI DATA MXREC /90000/ $UNI$VAX 

DATA MXREC /3650/ $ATA 

DATA IDISK /'A'/ 

END 

SUBROUTINE BD8M( IUNIT, NIST , NSOLL ) 

PARAMETER (LEER=2) 
C Positionieren des Lesezeigers auf Einheit IUNIT von Zeile NIST nach NSOLL 
C Die ersten LEER Zeilen werden bei Zeilennr. bzw. Lesezeiger nicht gezählt 

I=NSOLL-NIST 

IF(I.EQ.O) RETURN 

IF(I.LT.0)GOTOl 
6 D02J=1,I 

2 READ (IUNIT) 
RETURN 

1 CONTINUE 
C77 ggf. hier hinzufügen (BACKSPACE statt REWIND und vorw.pos. falls rent.): 
C Bei UNIVAC Files Format ' FB ' nachf. Anw. weg da BACKSP. unmögl. $UNI 
IF(NIST/2+I.LT.0)GOTO5 " C77 

D04J=1,-I C77 

4 BACKSPACE (IUNIT) C7 7 
RETURN C7 7 

5 CONTINUE C7 7 
REWIND (IUNIT) 

I=NSOLL-l+LEER 

GOT06 

END 
C Die im Programm verwendeten schnellen Funktionen können entweder gemäß 
C den umgebenden Kopmmentaren, oder wie folgt ersetzt werden 

DOUBLE PRECISION FUNCTION DADD(A,B) 

DOUBLE PRECISION A,B 

DADD=A+B 

RETURN 

END 

DOUBLE PRECISION FUNCTION DSUB(A,B) 

DOUBLE PRECISION A,B 

DSUB=A-B 

RETURN 

END 



DOUBLE PRECISION FUNCTION DMUL(A,B) 

DOUBLE PRECISION A,B 

DMUL=A*B 

RETURN 

END 

DOUBLE PRECISION FUNCTION DDIV(A,B) 

DOUBLE PRECISION A,B 

DDIV=A/B 

RETURN 

END 

DOUBLE PRECISION FUNCTION DPOW(A,B) 

DOUBLE PRECISION A,B 

DPOW=A**B 

RETURN 

END 

DOUBLE PRECISION FUNCTION DHYPOT(A,B) 

DOUBLE PRECISION A,B 

DHYPOT=DSQRT(A*A+B*B) 

RETURN 

END 
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